Sub Main()
    Dim hwndTarget As IntPtr 'hwnd окна PrevInstance

    If InStr(Command, "/quit") > 0 Then 'закрывает myapp и выходит
      Dim Start_Time As Date
      Do
        hwndTarget = FindMyWindow(0) 'WINDOWTITLE_MYAPP
        If hwndTarget = IntPtr.Zero Then Exit Do
        PostMessage(hwndTarget, WS_CANCELMODE, 0, IntPtr.Zero)
        PostMessage(hwndTarget, WM_CLOSE, 0, IntPtr.Zero)
        Application.DoEvents()
        Start_Time = Now()
        Do
          Application.DoEvents()
          If IsWindow(hwndTarget) = IntPtr.Zero Then Exit Do
          If DateDiff("s", Start_Time, Now) > 10 Then
            Exit Sub
          End If
        Loop
      Loop
      Exit Sub
    End If

    'исключить запуск второго экземпляра приложения
    hwndTarget = FindMyWindow(0) 'WINDOWTITLE_MYAPP
    If hwndTarget <> IntPtr.Zero Then
      If IsIconic(hwndTarget) Then ShowWindow(hwndTarget, SW_RESTORE)
      SetForegroundWindow(hwndTarget)
      Exit Sub
    End If
    'все таки этот вариант надо отработать, т.к. есть шанс быстро щелкнуть 2 раза по иконке(до загрузки формы)
    If PrevInstance() Then Exit Sub

    Application.EnableVisualStyles() 'инициализация XP/Vista стиля

...

    Form1 = New frm1
    Application.Run(Form1)
  End Sub

  Public Function PrevInstance() As Boolean
    If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
      Return True
    Else
      Return False
    End If
  End Function