'Api's SendMessage y FindWindow y Const WM_CLOSE
Private Sub CmdClose_Click()
On Error Resume Next
x = FindWindow (vbNullString, "Calculadora") 'como ejemplo la calculadora, el otro es el nombre de la clase
If x = 0 Then MsgBox "El programa no esta ejecutandose"
SendMessage (x, WM_CLOSE, 0&, 0&)
End Sub