调用外部程序代码 Private Sub Command1_Click() '程序A On Error GoTo ShellErr Shell App.Path & "\shutdown.exe" '程序B Exit Sub ShellErr: If Err.Number = 53 The