Spil, Timer og Keypress

Jeg fandt det squ selv alligevel havde ellers ledt og ledt


Private Declare Function GetKeyState Lib \"user32.dll\" (ByVal nVirtKey As Long) As Integer
Dim key As Integer

Private Sub Timer1_Timer()
key = GetKeyState(vbKeyUp)
If key And &H8000 Then
    mand.Top = mand.Top - 200
End If

key = GetKeyState(vbKeyDown)
If key And &H8000 Then
    mand.Top = mand.Top + 200
End If

key = GetKeyState(vbKeyLeft)
If key And &H8000 Then
    mand.Left = mand.Left - 200
End If

key = GetKeyState(vbKeyRight)
If key And &H8000 Then
    mand.Left = mand.Left + 200
End If

End Sub