进程死亡的自动复活

nbsp;     DoEvents
        Debug.Print res
        
    Loop While True
    Command1.Enabled = True
    Command2.Enabled = False
   End Sub

Private Sub Command3_Click()
Flag = True
End Sub

Private Sub Form_Load()
    RunFile = InputBox$("请输入需要运行的程序名与路经")
    Flag = False
    
End Sub