Public Function laufe(Richtung As Integer)
    If Richtung = 2 Then
        if PruefeRand=false then exit function
        frmLand.Spielfigur.Move frmLand.Spielfigur.Left + 30
    ElseIf Richtung = 1 Then
        frmLand.Spielfigur.Move frmLand.Spielfigur.Left - 30
    Else
        springe
    End If
 
    Spalte = frmLand.Spielfigur.Left / 65 'Spalte vor der Spielfigur ermitteln 
    ' | Intervariable (Ganzahl)
    Indexe = Spalte * Hoehe 'Anzahl Indexe berechnen die geprüft werden müssen
 
    falle 'Gravitation beachten
End Function

Function PruefeRand() as boolean
    PruefeRand=true
    Spalte = frmLand.Spielfigur.Left / 65 + 1 'Spalte der Spielfigur ermitteln 
    ' | Intervariable (Ganzahl)
    Zeile = (frmLand.Spielfigur.Top - 25) / 65 + 1 'Zeile ermitteln
    Nfeld = Spalte * Hoehe + Zeile
    If frmLand.feld1(Nfeld).Tag = 2 Then
        If frmLand.feld1(Nfeld).Left < frmLand.Spielfigur.Left + 50 Then
            frmLand.Spielfigur.Left = frmLand.feld1(Nfeld).Left - _
              frmLand.Spielfigur.Width - 40
            PruefeRand=false
        End If
    End If
End Function