Public Class Form1
    Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As _
      UInt32
    Private WithEvents Pb As New PictureBox, T As New Timer
    Dim srec As New Rectangle(160, 270, 80, 20)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ClientSize = New Size(400, 300)
        Pb.Dock = DockStyle.Fill
        Pb.BackColor = Color.White
        Pb.Parent = Me
        T.Interval = 20
        T.Start()
    End Sub
 
    'Tastaturabfrage über GetAsyncKeyState in einem Timer für eine 
    ' gleichmässigere Bewegung
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T.Tick
        If GetAsyncKeyState(Keys.Left) > 0 AndAlso srec.X >= 3 Then srec.X -= 4
        If GetAsyncKeyState(Keys.Right) > 0 AndAlso srec.Right <= 396 Then _
          srec.X += 4
        Pb.Invalidate(Rectangle.Inflate(srec, 4, 1))
    End Sub
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Pb.Paint
        e.Graphics.FillRectangle(Brushes.Black, srec)
    End Sub
End Class