Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal _
      e As _
      Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) _
      Handles Me.StartupNextInstance
      If Not fmHaupt.Visible Then fmHaupt.Show()
      e.BringToForeground = True
    End Sub