Dim Felder(1 To 6, 1 To 6)
Dim PosX As Long
Dim PosY As Long
 
Private Sub Form_Load()
    For i = 1 To 6                          'Zeilen
        For j = 1 To 6                      'Spalten
            Felder(i, j) = Picture1((i * j) - 1) 'Zuweisung der Felder
        Next j
    Next i
    SpringerPos
End Sub
 
Private Sub links_Click()
    If PosX > 0 Then
        PosX = PosX - 1
        Springer.Left = Springer.Left - 1000
    End If
    SpringerPos
End Sub
 
Private Sub rechts_Click()
    If PosX < 5 Then
        PosX = PosX + 1
        Springer.Left = Springer.Left + 1000
    End If
    SpringerPos
End Sub
 
Private Sub hoch_Click()
    If PosY > 0 Then
        PosY = PosY - 1
        Springer.Top = Springer.Top - 1000
    End If
    SpringerPos
End Sub
 
Private Sub runter_Click()
    If PosY < 5 Then
        PosY = PosY + 1
        Springer.Top = Springer.Top + 1000
    End If
    SpringerPos
End Sub
 
Private Sub SpringerPos()
    Text1.Text = "Die Position des Springers ist " & PosX + 1 & " | " & PosY + 1
End Sub