Private Sub Form_Load()
    If App.PrevInstance = -1 Then
        Call MsgBox("このアプリケーションは既に起動されています。", vbInformation, "二重起動防止 サンプルプログラム")
        End
    End If
End Sub