Public Class Form1
    Dim X As Integer
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        X += 20
        Zeichnen()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        VScrollBar1.Dock = DockStyle.Right
    End Sub
 
    Private Sub Zeichnen()
        Dim gra As Graphics = Me.CreateGraphics
        gra.DrawRectangle(Pens.Black, X, 0, 20, 20)
    End Sub
End Class

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.