例: Shell function

' Start the Windows Calculator as a normal (not minimized)
' window with focus.
Dim result As Integer
result = Shell("CALC.EXE", 1)