关闭active.exe的问题

Question

'新建exe工程，有两个command。要求选command1打开active.exe文档，选command2关闭打开的文档
’请问我的程序错那了？
Dim objform As CoffeeMonitor
Private Sub Command1_Click()
Set objform = New CoffeeMonitor
objform.ShowForm vbModeless
End SubPrivate Sub Command2_Click()
objform.unloadform
End SubCoffeeMonitor类模块代码：Dim frm As New TestForm
cfeModeless = vbModeless
Public Sub ShowForm(Optional Modality As _
cfeModality = cfeModal)
frm.Show cfeModeless
End If
End SubPublic Sub unloadform()
frm.Form_Unload 0
End Sub

Answer 1

谢谢各位自己解决了
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 RetVal = PostMessage(lWnd, &H10, 0&, 0&)