Option Explicit

'２重起動しているか調べます

'VisualBasic開発環境で確認はできませんので
'EXEを作成してから確認してください

Private Sub Form_Load()
    
    '２重起動しているか調べます
    If App.PrevInstance = True Then
        Label1.Caption = "このアプリケーションは、既に起動されています。"
    Else
        Label1.Caption = "このアプリケーションは、単独で起動しています。"
    End If
    
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub