Have a sendmessage problem

[loadstone]

Code: Select all

txt$="Hello World!"
For i = 1 To Len(txt$)
   SendMessage_(456321,#WM_CHAR,Mid(txt$,i),0)
Next

Up code sendmessage , the destination window display "??????????" ,how can I use this api send message #WM_CHAR do it good ?
thanks

[netmaestro]

do it good:

Code: Select all

OpenWindow(0,0,0,320,240,"", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(0,100,100,100,20,"")
txt$="Hello World!"
For i = 1 To Len(txt$)
   SendMessage_(GadgetID(0),#WM_CHAR,Asc(Mid(txt$,i)),0)
 Next
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow

[loadstone]

[quote="netmaestro"]do it good:
quote]

I'm from inside to outside both thank your help