Code:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Form_Load()
Dim strWoof As String
strWoof = "Mooose"
SendMessage Text1.hwnd, WM_SETTEXT, 0&, ByVal strWoof
End Sub
Out of interest did you try searching for "API and text and textbox"??? HUNDREDS of results.
Woka