lParam

I created my own message ans I subclassed WindProc. My problem is I dont know how to retrieve the string contained in the lparam.

Code :

dim variant_message as variant

variant_message = "Hello world!"

SendMessage hwndWin, WM_MYMESSAGE, 0, ByVal CStr(variant_Message)



Public Function WindProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If wMsg = WM_MYMESSAGE Then
if lParam <> 0 then
What I have to do here ???????

Exit Function
End If

WindProc = CallWindowProc(WndProcOld&, hwnd&, wMsg&, wParam&, lParam&)

End Function

Thanks in advance

I would recommend you use an atom. You can do this with the GlobalAddItem function, and you can retrieve it with GlobalGetAtomName.

See this link for a similar topic.

I tried to do many CopyMemory, but it's not very efficient !

Thanks a lot !