Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
        If e.KeyCode = Keys.Up Then
 
            PictureBox1.Location = New Point(PictureBox1.Location.X, _
              PictureBox1.Location.Y - 5)
 
        End If
 
        If e.KeyCode = Keys.Down Then
 
            PictureBox1.Location = New Point(PictureBox1.Location.X, _
              PictureBox1.Location.Y + 5)
 
        End If
 
        If e.KeyCode = Keys.Left Then
 
            PictureBox1.Location = New Point(PictureBox1.Location.X - 5, _
              PictureBox1.Location.Y)
 
        End If
 
        If e.KeyCode = Keys.Right Then
 
            PictureBox1.Location = New Point(PictureBox1.Location.X + 5, _
              PictureBox1.Location.Y)
 
        End If
 
    End Sub

________________________________________________________________

Du kannst mit deinem Computer ALLES machen was Du willst!
Allerdings musst Du erst herausfinden wie.....
________________________________________________________________

Beitrag wurde zuletzt am 07.09.10 um 17:19:24 editiert.