Private Declare Function GetCommandLine Lib "kernel32" Alias _
    "GetCommandLineA" () As String

Private Sub Command1_Click()
    MsgBox GetCommandLine
End Sub