Option Explicit
 
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyDown
      Shape1.Top = Shape1.Top + a
      b = 50
      c = 50
      d = 50
    Case vbKeyUp
      Shape1.Top = Shape1.Top - b
      a = 50
      c = 50
      d = 50
    Case vbKeyRight
      Shape1.Left = Shape1.Left + c
      a = 50
      b = 50
      d = 50
    Case vbKeyLeft
      Shape1.Left = Shape1.Left - d
      a = 50
      b = 50
      c = 50
  End Select
  Dim i As Integer
  Dim o As Integer
  For i = 0 To 'anzahl an Linien
If Shape1.Left = Line1(i).X1 Then
  d = 0
End If
Next i
Dim t as Integer
For t = 0 To 'anzahl an Linien
If Shape1.Left = Line2(t).X1 Then
  c = 0
End If
Next t
For o = 0 To 'anzahl an Linien
If Shape1.Top = Line3(o).Y1 Then
  a = 0
End If
Next o
Dim P as Integer
If Shape1.Top = Line4(P).Y2 Then
b = 0
End If
Next P
'Links = d = 1
'rechts = c = 2
'oben =b = 4
'unten = a = 3
End Sub
 
Private Sub Form_Load()
a = 50
b = 50
c = 50
d = 50
End Sub