dim Bildpfad(9) as String 'Der Pfad zum Bild
dim x as integer
Private Sub Form_Load()
Bildpfad(0) = "c:\...."
Bildpfad(1) = "C:\...."
....
Bildpfad(9) = "C:\...."
End Sub
Private Sub Timer1_Timer()
x = 10 * Rnd(1)
picture1.Picture = Loadpicture(Bildpfad(x))
End Sub
dim x as integer
Private Sub Form_Load()
Bildpfad(0) = "c:\...."
Bildpfad(1) = "C:\...."
....
Bildpfad(9) = "C:\...."
End Sub
Private Sub Timer1_Timer()
x = 10 * Rnd(1)
picture1.Picture = Loadpicture(Bildpfad(x))
End Sub
Logge dich ein um einen Beitrag zu schreiben.