Public NotInheritable Class MyCommands
Shared MainDlg As MainForm
Private Sub New()
End Sub
<CommandMethod("MySettings", CommandFlags.Modal)>
Public Shared Sub MySettings()
If (MainDlg Is Nothing) Then
MainDlg = New MainForm
Application.ShowModelessDialog(MainDlg)
ElseIf (MainDlg.IsDisposed) Then
MainDlg = New MainForm
Application.ShowModelessDialog(MainDlg)
Else
MainDlg.BringToFront()
End If
End Sub
End Class