vb中command函数怎样应用，最好举个例子？

'相当于命令行参数
'将下面一段代码复制并在VB中编译生成程序
'然后拉拽一文本文档到程序的图标上，看看有什么发生
'这是因为在打开程序的时候以参数方式传送了那个文件的文件地址

Private Sub Form_Load()
Shell "notepad " & Command(), vbNormalFocus
End Sub

Command 函数示例

本示例在某个函数中用 Command 函数获得命令行参数，并将命令行参数以 Variant 类型之数组返回。

Function GetCommandLine(Optional MaxArgs)
'声明变量。
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
'检查是否提供了 MaxArgs 参数。
If IsMissing(MaxArgs) Then MaxArgs = 10
' 使数组的大小合适。
ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False
'取得命令行参数。
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'以一次一个字符的方式取出命令行参数。
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
'检测是否为 space 或 tab。
If (C <> " " And C <> vbTab) Then
'若既不是 space 键，也不是 tab 键，
'则检测是否为参数内含之字符。
If Not InArg Then<