Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim ret As Long
Dim lResult As Long
ret = UtilityModule.FindWindow("OSKMainClass", "On-Screen Keyboard")
lResult = UtilityModule.SendMessage(ret, 100, 15, 1)

I am trying to send message to a window with the code above and it does not work. Can someone look at this and give some guidance. I got wMsg,wParam and lParam from Spy++.