Namespace My

    '次のイベントは MyApplication に対して利用できます
    '
    'Startup: アプリケーションが開始されたとき、スタートアップ フォームが作成される
    '         前に発生します。
    'Shutdown: アプリケーション フォームがすべて閉じられた後に発生します。
    '          このイベントは、通常の終了以外の方法でアプリケーションが閉じられたと
    '          きには発生しません。
    'UnhandledException: ハンドルされていない例外がアプリケーションで発生したときに
    '                    発生するイベントです。
    'StartupNextInstance: 単一インスタンス アプリケーションが起動され、それが既に
    '                     アクティブであるときに発生します。 
    'NetworkAvailabilityChanged: ネットワーク接続が接続されたとき、または切断され
    '                            たときに発生します。

    Class MyApplication

        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _
                    ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) _
                    Handles Me.StartupNextInstance
            MessageBox.Show("すでに起動されています")
        End Sub
    End Class

End Namespace