VB Code:
Private Sub cmdTest_Click()
Dim T1 As Long, T2 As Long
myBackBuffer = CreateCompatibleDC(GetDC(0))
myBufferBMP = CreateCompatibleBitmap(GetDC(0), 320, 256)
SelectObject myBackBuffer, myBufferBMP
BitBlt myBackBuffer, 0, 0, 320, 256, 0, 0, 0, vbWhiteness
mySprite = LoadGraphicDC(App.Path & "\sprite1.bmp")
cmdTest.Enabled = False
T2 = GetTickCount
Do
DoEvents
T1 = GetTickCount
If (T1 - T2) >= 15 Then
BitBlt myBackBuffer, SpriteX - 1, SpriteY - 1, 32, 32, 0, 0, 0, vbBlackness
BitBlt myBackBuffer, SpriteX, SpriteY, 32, 32, mySprite, 0, 0, vbSrcPaint
BitBlt Me.hdc, 0, 0, 320, 256, myBackBuffer, 0, 0, vbSrcCopy
SpriteX = SpriteX + 1
SpriteY = SpriteY + 1
T2 = GetTickCount
End If
Loop Until SpriteX = 320
End Sub