VBA/Excel/Access/Word/File Path/Image Object

Load Image

 
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