SetParent API Question

[HeVa]

There's probably an easy answer to this question, but I haven't been able to find any information...

I'm using the SetParent API to parent forms in a frame object, like this:

    SetParent frm.hwnd, Frame1.hwnd
    frm.Show

I want to switch between viewing several different forms in this frame. Is there a way to query the frame to see what is the name of the child form that is showing?

Any info would be greatly appreciated!

TIA

[chrisjk]

You can try this..it will get the caption of the form in the frame

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Dim ChildhWnd As Long
Private Sub Command1_Click()
 
Dim strCaption As String
strCaption = String(100, Chr$(0))
 
GetWindowText ChildhWnd, strCaption, 100
 
MsgBox strCaption
 
End Sub
 
Private Sub Form_Load()
 
Dim frm As Form
 
Set frm = Form2
 
SetParent frm.hwnd, Frame1.hwnd
frm.Show
ChildhWnd = frm.hwnd 'store for later
 
End Sub

[HeVa]

Thanks, Chrisjk ... that was exactly what I needed.