Private Declare Function SendMessage Lib "user32.dll" _
Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
 
[s]Private Const WM_USER As Long = &H400&
Private Const EM_SETTEXTEX As Long = WM_USER + 97[/s]
Private Const WM_SETTEXT = &HC
 
 
Private Sub Command3_Click()
Call SendMessage(Text1.hWnd, WM_SETTEXT, &H0, ByVal "Hallo Welt!")
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...