Private Sub Command1_Click()
Dim i As Long
Dim AniCount1 As Integer
Dim AniCount2 As Integer
Dim AniPic(3) As PictureBox
 
AniPic(0).Picture = LoadPicture("C:\Ort\Bild0.bmp")
AniPic(1).Picture = LoadPicture("C:\Ort\Bild1.bmp")
AniPic(2).Picture = LoadPicture("C:\Ort\Bild2.bmp")
AniPic(3).Picture = LoadPicture("C:\Ort\Bild3.bmp")
 
For i = 0 To 25000
  AniCount1 = i Mod 20
  AniCount2 = AniCount1 Mod 3
  Picture1.Picture = AniPic(AniCount2).Picture
Next i
End Sub

____________________________
Heimschmiede.de.vu