>This might work better if you add a new class to your project and put the Function Main in that class. Then mark this new class as your start up object instead of your form.

This is working:

Module Module1

    Sub Main(ByVal CmdArgs() As String)
        Dim loForm As New Form1

        ' See if we have a parameter
        If CmdArgs.Length > 0 Then

            ' If we are in auto mode
            If UCase(CmdArgs(0)) = "/AUTO" Then
                loForm.llAuto = True
            End If

        End If

        loForm.ShowDialog()
    End Sub

End Module