Private Sub Command1_Click()
Dim FensterTitel As String
    Dim lHWND As Long
    FensterTitel = "Rechner" ' genauer Fenstertitel
    lHWND = FindWindow(vbNullString, FensterTitel)
    Call PostMessage(lHWND, WM_CLOSE, 0, 0&)
End Sub