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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s