Private Sub pic_1_keypress(keyascii As Integer)
'tastatureingabe mit gleichzeitiger winkelbeschränkung
If keyascii = vbKeySpace Then
    'leertaste, nach links drehen
    alpha = alpha + 5 ' 5 grad nach links
    If alpha > 90 Then alpha = 90
    If 0 > alpha Then alpha = 0
    kanonenrichtung
 
End If
If keyascii = vbKeyReturn Then
     x = 0
    beta = alpha    'speichern der ausrichtung zum schusszeitpunkt
                    'sonst bewegt sich der schuss mit wenn man weiterdreht
    schuss.Enabled = True
end if
end sub