|
Private Sub cmdAnimate_Click()
Dim I As Integer
Dim filePath As String
Dim myImages(9) As Image
For I = 0 To 9
Set myImages(I) = New Image
filePath = ActiveWorkbook.Path & "\l" & Trim(str(I)) & ".bmp"
myImages(I).Picture = LoadPicture(filePath)
Next I
For I = 0 To 9
imgBall.Picture = myImages(I).Picture
Delay (0.1)
Next I
End Sub
|