Public Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
        Long, ByVal wParam As Long, lParam As Any) As Long
 
.....
 
Buffer = Space$(32767)
Result = SendMessage(Handle, WM_GETTEXT, Len(Buffer), _
                             ByVal Buffer)
Text1.Text = Left$(Buffer, Result)