'================================================================
'= アプリケーションを強制終了

'=    (FatalAppExit.bas)
'================================================================
#include "Windows.bi"

' メッセージボックスを表示して､アプリケーションを終了
Declare Sub Api_FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction&, ByVal lpMessageText$)

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var MSG As String
    
    MSG = "強制終了します。"   'メッセージボックスに表示する文字列を指定
    Api_FatalAppExit 0, MSG    'アプリケーションの強制終了を実行

End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End