Individueller Programmstart durch Parameteroption
(ZBsp. ScreenSaver)

Nehmen wir als Beispiel an, Sie haben ein Programm mit zwei unterschiedlichen Teilprogrammen auf zwei Formen definiert, dann möchten Sie dem User die Möglichkeit einräumen, über Parameter zum Programmstart, die gewünschte Form zu laden.

Sie benötigen also für den Test, in Ihrem Projekt 2 Formen und ein Modul.
Erstellen Sie im Modul, die Prozedur (Sub) "Main" und geben Sie unter (VB5+6) "Projekt" - Eintrag "Eigenschaften von ..." als Startobjekt "Sub Main" an.

Sub Main()
If InStr(1, Command$, "/c", 1) Then        'wenn mit Option /c gestartet wurde
    Form2.Show                                    'Laden der Form
ElseIf InStr(1, Command$, "/s", 1) Then  'wenn mit Option /s gestartet wurde
    Form1.Show                                    'Laden der Form
Else
    Msgbox "Keine Option angegeben"       'wenn keine Option angegeben wurde
End If

End Sub

Die Parameter können auch ganze Wörter sein, oder mehrere, durch Leerzeichen oder anderes getrennt. Command$ enthält immer den gesammten Parameterinhalt und man muß sich lediglich etwas einfallen lassen, die Werte aufzuschlüsseln.

Und hier noch ein Link zu einem Screensaverbeispiel mit Quellcode