• Home
 · 
• Graphics
 · 
• a neat little image clip...flashes different images like you see on websites

a neat little image clip...flashes different images like you see on websites

a neat little image clip...flashes different images like you see on websites

API Declarations


Private i As Integer



Rate a neat little image clip...flashes different images like you see on websites

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'put a timer on your form.
'in the procedure store images, locate your own files
'on your pc and enter replace the file path where your
'pictures are located.

'watch this, now you have an animated picture clip.

Private Sub Form_Load()
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000
StoreImages
For i = 1 To 5
Picture1.Picture = LoadPicture(PictureArray(i))
Next i
End Sub

Sub StoreImages()
PictureArray(1) = "c:\America Online 6.0\download\\My Pics\Brandon1.jpg"
PictureArray(2) = "c:\America Online 6.0\download\My Pics\Brandon2.jpg"
PictureArray(3) = "c:\America Online 6.0\download\My Pics\Brandon3.jpg"
PictureArray(4) = "c:\America Online 6.0\download\My Pics\Brandon4.jpg"
PictureArray(5) = "c:\America Online 6.0\download\Other Pics\Brandie2.jpg"
End Sub