Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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