Private Sub Form_Load()

    Dim sCmdLine As String
    sCmdLine = Trim$(UCase$(Command$))

    ' Запускаем заставку в обычном режиме
    If sCmdLine = "/s" Or sCmdLine = "" Then
        Exit Sub
    End If

    ' Запускаем заставку в режиме конфигурации
    If sCmdLine = "/c" Then
        MsgBox "Конфигурации не требуется!"
        End
    End If

    ' Запускаем заставку в режиме просмотра
    If Left$(sCmdLine,  2 ) = "/p" Then
        'Параметр можно получить с помощью оператора
        'Val(Mid$(sCdmLine,3))
        End
    End If
    
End Sub