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

Load Image

   <source lang="vb">

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

</source>