dotNETportal.cz

Lze to udělat mnoha způsoby. Jeden z nich je zakázat Application framework a řídit spuštění aplikace ručně. Ve vlastnostech projektu na kartě Application zrušte zaškrtnutí Enable application framework, přidejte nový modul a do něj vložte následující kód:

Public Module Module1
  Public Sub Main()
    Application.EnableVisualStyles()
    Application.SetCompatibleTextRenderingDefault(False)
    Dim startupForm As Form
    For Each commandLineArg In My.Application.CommandLineArgs
      Select Case commandLineArg.ToLowerInvariant()
        Case "form1"
          startupForm = New Form1
        Case "form_schedule"
          startupForm = New Form_Schedule
        Case Else
          startupForm = New Form1
      End Select
    Next
    Application.Run(startupForm)
  End Sub
End Module