Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e _
  As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) _
  Handles Me.StartupNextInstance
    If e.CommandLine.Count > 0 Then frmMain.FileOpen(e.CommandLine(0))
End Sub