AppAlive = True
Do while AppAlive
    'Dein code hier
    DoEvents
    'oder hier 
Loop
 
Private Sub cmdEndApplication_Click()
    AppAlive = False
    'Dann wird die Schleife beendet
End Sub

Bye

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