Dim Endgame as Boolean
 
Public Sub Form_Load()
	GrafikenUndSoundsLaden
 
	Do While Not EndGame 
		SpielfeldZeichnen
		SpielfigurZeichnen        
 
		Doevents
	Loop
 
	AllesEntladen
	Unload Me
End Sub
 
 
Public Sub EndGameButton_Click()
	EndGame = True
End Sub
 
Public Sub Form_KeyDown(KeyCode, ....)
	SelectCase KeyCode
        	Case vbKeyDown
			Spielfigur.Position.Y = Spielfigur.Position.Y + 1
                ....
	End Select
End Sub

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)