Dim a As Integer 'fram number
'raster operations
Const BLACKNESS = &H42
Const DSTINVERT = &H550009
Const MERGECOPY = &HC000CA
Const MERGEPAINT = &HBB0226
Const NOTSRCCOPY = &H330008
Const NOTSRCERASE = &H1100A6
Const PATCOPY = &HF00021
Const PATINVERT = &H5A0049
Const PATPAINT = &HFB0A09
Const SRCAND = &H8800C6
Const SRCCOPY = &HCC0020
Const SRCERASE = &H440328
Const SRCINVERT = &H660046
Const SRCPAINT = &HEE0086
Const WHITENESS = &HFF0062
'=======================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
a = a + 1
'frame number
Select Case a
Case 1:
Picture1.Picture = LoadPicture("filenamehere")
Case 2:
Picture1.Picture = LoadPicture("filenamehere")
Case 3:
Picture1.Picture = LoadPicture("filenamehere")
Case 4:
Picture1.Picture = LoadPicture("filenamehere")
End Select
If a > 5 Then '5 is the number of pics
a = 0
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 500 '1/2 a sec
Me.AutoRedraw = True
End Sub
Private Sub Timer1_Timer()
Me.Cls
Me.PaintPicture Picture1.Picture, x, y, 100, 100, 0, 0, 100, 100, SRCCOPY
End Sub