Public Function jackNod()
Dim lResult As Long
    Dim picOldBack As StdPicture
    Dim StartTimer As Single
    Dim sngInterval As Single
    Dim iCounter As Integer
    Dim iNumFrames As Integer
    
    'We'll first make a copy of the background where the animation
    'will play. This is so we can restore it after the animation
    'does play
    lResult = BitBlt(picDisplay.hDC, 0, 0, imgSprite(1).Width, imgSprite(1).Height, Me.hDC, 0, 0, SRCCOPY)
    Set picOldBack = picDisplay.Image
    
    'Lets set our delay interval and number of frames
    sngInterval = 0.1
    StartTimer = Timer
    iNumFrames = 4
    
    'No we will loop through the Frames.
    For iCounter = 0 To iNumFrames - 1
        
        'Now we will cut out the area of the background to make room
        'for the sprite. We do this by using BitBlt to paint the Mask
        'Using the SRCAND. This will cut out only the black areas
        'of the mask
        Set picDisplay.Picture = imgMask(iCounter).Picture
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCAND)
        
        'Now we will paint the sprite in the hole we cut out of the
        'background with the mask using SRCPAINT
        Set picDisplay.Picture = imgSprite(iCounter).Picture
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCPAINT)
        Me.Refresh
        
        StartTimer = Timer
        Do While Timer < StartTimer + sngInterval
            DoEvents
        Loop
        
        'Refresh the background
        Set picDisplay.Picture = picOldBack
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCCOPY)
        
    Next
    
    'Now lets loop it backwards
    For iCounter = iNumFrames - 1 To 0 Step -1
        
        'Cut out the mask
        Set picDisplay.Picture = imgMask(iCounter).Picture
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCAND)
        
        'SRCPAINT the Sprite
        Set picDisplay.Picture = imgSprite(iCounter).Picture
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCPAINT)
        Me.Refresh
        
        StartTimer = Timer
        Do While Timer < StartTimer + sngInterval
            DoEvents
        Loop
        
        'Refresh the background
        Set picDisplay.Picture = picOldBack
        lResult = BitBlt(Me.hDC, 0, 0, imgSprite(iCounter).Width, imgSprite(iCounter).Height, picDisplay.hDC, 0, 0, SRCCOPY)
        
    Next
    
    Me.Refresh
End Function




This is How i call the function in the form

Private Sub cmdMove_Click()

Select Case True

Case txtControl.Text = "Nod"
Call jackNod

Case Else
End Select

End Sub


And this is the Sprite stuff in it's own Mod

Option Explicit

Public Const SRCAND = &H8800C6
Public Const SRCPAINT = &HEE0086
Public Const SRCCOPY = &HCC0020
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long