Dim MoveAllowed As Boolean

Private Sub tmrGo_Timer()
RutscheSymbol
SymbolAbbilden
ZeichneFeld
MoveAllowed = True
End Sub

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 32
        If MoveAllowed Then SteinDrehen: MoveAllowed = False
    Case 37
        If SymbLeft > 0 Then
            If MoveAllowed Then
                If RLErlaubt(SymbLeft - 1) Then SymbLeft = SymbLeft - 1
                MoveAllowed = False
            End If
        End If
    Case 39
        If SymbLeft < maxLeft Then
            If MoveAllowed Then
                If RLErlaubt(SymbLeft + 1) Then SymbLeft = SymbLeft + 1
                MoveAllowed = False
            End If
        End If
    Case 40
        If MoveAllowed Then
            tmrGo.Interval = SpeedSchnell
            MoveAllowed = False
        End If
End Select
ZeichneFeld
End Sub