Public Class Form1
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private WithEvents t As New Timer
    Const Pt_Left As Int32 = 37
    Const Pt_Up As Int32 = 38
    Const Pt_Rigth As Int32 = 39
    Const Pt_Down As Int32 = 40
 
    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseEnter
        keybd_event(Pt_Down, 1, 0, 0) 'Pfeil-Taste Down drücken
    End Sub
 
    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseLeave
        keybd_event(Pt_Down, 1, 2, 0) 'Pfeil-Taste Down loslassen
    End Sub
 
    Private Sub Button2_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button2.MouseEnter
        keybd_event(Pt_Up, 1, 0, 0) 'Pfeil-Taste Up drücken
    End Sub
 
    Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button2.MouseLeave
        keybd_event(Pt_Up, 1, 2, 0) 'Pfeil-Taste Up loslassen
    End Sub
End Class