'Das kommt in die Form. Wohin auch immer Du es haben möchtest
  Dim aryHwnd() As Long
  Dim I As Long
 
  Uc1.GetControlHwnd aryHwnd()
 
  For I = 0 To UBound(aryHwnd())
    Print aryHwnd(I)
  Next I

'Und das ins UserControl
Public Sub GetControl(ary() As Long)
  Dim I As Long
  Dim contr As Control
 
  For Each contr In UserControl.Controls
    ReDim Preserve ary(I)
    ary(I) = contr.hWnd
    I = I + 1
  Next
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.