新建From1（窗体），新建Command1-3（按钮CommandButton），代码：

Private Sub Command1_Click()
    If f_GetPID("CalculatorApp.exe") ＜＞ 0 Then
        Call f_SuspendProcess("CalculatorApp.exe")
    End If
End Sub

Private Sub Command2_Click()
    Call f_RecoveryProcess("CalculatorApp.exe")
End Sub

Private Sub Command3_Click()
    Call f_EndProcess("CalculatorApp.exe")
End Sub

新建模块 modProcess.bas，代码：

怎么知道windows的计算器的进程名称呢？打开“任务管理器”选“详细信息”选项卡，可以在【名称】中找到CalculatorApp.exe，在“进程”选项卡中可以看到的“应用”中有“计算器”，点开可以看到状态正常。

如果点击Command1，就会看到“任务管理器”中的“计算器”显示“已挂起”，并且计算器无法使用了。

如果点击Command2，就可以去掉挂起状态，计算器可以使用。

如果点击Command3，就结束了计算器这个进程。