fånigt problem med bit blt

 Den här koden har jag lagt in i en module:

 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

 Public Const SRCCOPY = &HCC0020
 Public Const SRCPAINT = &HEE0086
 Public Const SRCAND = &H8800C6

 Public RetVal As Long

Här är ett utklipp från subrutinen form_keycode:

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 39 Then
    
    
    X = X + 1
    
    RetVal = BitBlt(ruta.hDC, 0, 0, 32, 32, karta.hDC, X * 32, Y * 32, SRCCOPY)
    
    RetVal = BitBlt(ruta.hDC, 0, 0, 24, 32, alexMask.hDC, a * 24, 32, SRCAND)
    
    RetVal = BitBlt(ruta.hDC, 0, 0, 24, 32, alexSprite.hDC, a * 24, 32, SRCPAINT)
    
    
    
    'ruta.PaintPicture alex, 0, 0, 24, 32, a * 24, 32, 24, 32
    
    ruta.Left = 32 * X
    
    a = a + 1
    If a = 3 Then
        a = 0
    End If