Private Sub Command1_Click()
Dim ghw As Long
ghw = FindWindow(vbNullString, "Här måste det exakta namnet på fönstret skrivas in!!!")
PostMessage ghw, WM_CLOSE, CLng(0), CLng(0)
End Sub