Private Sub Form_Load()
 
Dim ViewCounterWeltX As Long
Dim ViewCounterWeltY As Long
Dim ViewCounterWeltXmax As Long
Dim ViewCounterWeltYmax As Long
 
'Für die Anzeige
ViewCounterWeltX = 1
ViewCounterWeltY = 1
ViewCounterWeltXmax = 15
ViewCounterWeltYmax = 15
 
End Sub

Private Sub ScreenDown_Click()
    If ViewCounterWeltY < ViewCounterWeltYmax Then
        ViewCounterWeltY = ViewCounterWeltY + 1
 
        'Aktuelle Position zeichnen
        Call DrawPosition(ViewCounterWeltX, ViewCounterWeltY)
    End If
End Sub