jotahacker sera un placer.
En formulario
Código
Dim wnd, tWnd As Long Private Sub Command1_Click() Dim X() As Byte ReDim X(Len(Text1) + 1) X = StringToByteArray(Text1.Text) Call SendMessage(wnd, WM_SETTEXT, 0&, X(0)) End Sub Private Sub Form_Load() tWnd = FindWindow("Shell_TrayWnd", "") wnd = GetWindow(tWnd, 5) End Sub
En modulo
Código
Public Const WM_SETTEXT = &HC 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 Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long Public Function StringToByteArray(str As String) As Variant Dim bray() As Byte Dim cnt As Integer Dim ln As Integer ln = Len(str) ReDim bray(ln) For cnt = 0 To ln - 1 bray(cnt) = Asc(Mid(str, cnt + 1, 1)) Next cnt bray(ln) = 0 StringToByteArray = bray End Function