Error en Funcion

[florete]

Error de compilacion
No se ha definido sub/o Funcion

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Esto esta puesto en un modulo y cuando se llamada asi:

Private Sub Command1_Click()
Call SendMessage(Me.hWnd, &H112, &HF170&, ByVal APAGA)
End Sub

No se lo que hago mal.....
Me podeis ayudar alguno.... Gracias..estoy empezando

[Avellaneda]

Si la función está en un módulo diferente al del Command1 (p.e. en un módulo .bas), declárala como Public.