アプリケーションを強制終了する

'FatalAppExit　＝＞メッセージボックスを表示して､アプリケーションを終了させる

'＜引数＞
'uAction&　　　　　 ：　０を入れる。又はhwndを入れる（一応確認済）。
'lpMessageText:                 メッセージテキストを入れる変数です｡

'＠戻り値＠
' なし

Private Declare Sub FatalAppExit Lib "KERNEL32" Alias "FatalAppExitA" (ByVal uAction&, ByVal lpMessageText$)


'FatalExit　＝＞アプリケーションの実行を強制的に終了する

'＜引数＞
'code:エラーコードとメッセージ

'＠戻り値＠
'なし

Private Declare Sub FatalExit Lib "KERNEL32" (ByVal code&)


Private Sub Command1_Click()

    FatalAppExit 0, "注：これはサンプルですよ（＾＾" + vbCrLf + _
                    "このプログラムは何か悪い事をしたので強制終了します"
End Sub

Private Sub Command2_Click()

      Dim WK As Long
      WK = 100 / 0
      FatalExit WK
End Sub