二重起動の防止

Form.Private Sub Form_Load()に次のコードを加える。

　　If App.PrevInstance = True Then
　　　　MsgBox ("このアプリケーションは、既に起動済みです。")
　　　　End
　　End If

全てのウィンドウを閉じて終了する

　　For Each objform In Forms
　　　　Unload objform
　　Next
　　End