Zhroucení aplikace
Postup:
V deklarační části formuláře zapište:
Private Declare
Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" _
(ByVal uAction As Long, ByVal lpMessageText As String)
Na formulář přidejte tlačítko a na jeho událost Click:
FatalAppExit 0,
"Už mě to nebaví !!!"