把g.exe放到工程的bin/Debug/目录里面调用时用：Private Sub Command1_Click()dim N as ObjectN=Shell(Application.StartupPath & "\g.exe")End Sub试试，有问题在追问
