Visual Basic - una duda ?SETFOCUS contestame esto porfa

probe el codigo k enviaste y funciono correctamente.. pero cuando cambio el codigo para k me pueda erra el notepad (bloc de notas).. no me funciona...
podrias decirme cual es mi error.
el codigo es el siguiente:

Dim Resultado As Long
Dim Ventana As Long

Ventana = FindWindow(vbNullString, "block de notas")

Resultado = PostMessage(Ventana, WM_CLOSE, 0&, 0&)

End Sub


pero no me funciona tambien probe con el nombre NOTEPAD.

esto en un boton

Dim Resultado As Long
Dim Ventana As Long

Ventana = FindWindow("NOTEPAD", vbNullString)

Resultado = PostMessage(Ventana, WM_CLOSE, 0&, 0&)

y en un modulo.bas

las declaraciones de las api y las constantes.

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Const WM_CLOSE = &H10