Passing messages to windows to get them to do something.

[Matthew Page]

I am trying to pass a message to a userform in VBA. I will include the code of what I have so far below. The problem I am having is that I don't know what I need to send in order to get the text I want to appear in the textfield that I want it to appear in.

Here is the code...

Private Const WM_SETTEXT As Long = &HC
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
        (ByVal parentHwnd As Long, _
        ByVal nextChildHwnd As Long, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As Long
 
Private Sub UserForm_Activate()
  Dim windowHandle As Long
  Dim lpClassName As String
  Dim lpWindowName As String
  Dim childHandle As Long
 
  Dim lParam As String
 
  lpClassName = "ThunderDFrame"
  lpWindowName = Me.Name
  windowHandle = FindWindow(lpClassName, lpWindowName)
  childHandle = FindWindowEx(windowHandle, 0, "F3 Server 60000000", "")
  MsgBox childHandle
 
  lParam = "FuzzButt"
  SendMessage childHandle, WM_SETTEXT, 0&, lParam
 
End Sub
 

So, I get the 'Frame' for the form I want to modify (windowHandle) and then I used that to get the handle to the part of the window inside the frame, but not including the frame (childHandle). I want to set a textField on that form to some text value. What I have above just messes up the 'Caption' of the window. If I send the same text to the parent window then it corrupts the titlebar of the window. It doesn't set it to the text in lParam.

So... What am I doing wrong?