Argument Command Line

Private Sub Form_Load()

Dim strCmd as String

strCmd=Command$() ‘get argument from command line

If InStrB (strCmd, “-status MAX”) > 0 then

Me.WindowState=2

Me.Caption=”Argument:” & strCmd

Else

Me.WindowState=0

End if

End Sub