ah, scusa non avevo capito(stavo parlando con un amico e si vede che ero distratto..):
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, _
ByVal lParam As Object) As Integer