Namespace My



    Partial Friend Class MyApplication



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



            ' Bring to foreground

            e.BringToForeground = True



            ' Check if a file needs to be opened

            If e.CommandLine.Count > 0 Then

                Dim FileName As String = e.CommandLine.Item(0)

                LoadExternalFile(FileName)

            End If



        End Sub



        Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException

            Call (New frmException(e.Exception)).ShowDialog()

            e.ExitApplication = False

        End Sub



    End Class



End Namespace