Se prog già aperto in systray apri form

Imports Microsoft.VisualBasic.Devices
Imports Microsoft.VisualBasic.ApplicationServices

Namespace My

    Class MyApplication

        'StartupNextInstance: Raised when launching a single-instance 

        'application and the application is already active. 

        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _
              ByVal e As StartupNextInstanceEventArgs) _
              Handles Me.StartupNextInstance

            e.BringToForeground = True
            Form1.Show()

        End Sub

    End Class

End Namespace