Zhroucení aplikace II

Postup:
V deklarační části formuláře zapište:
Private Declare Sub FatalExit Lib "kernel32" (ByVal Code As Long)

Na formulář přidejte tlačítko a na jeho událost Click:
FatalExit 1

Zpět