Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Label1_Click()
    Unload Me
End Sub

Private Sub Text1_Click()
    Unload Me
End Sub

Dim WithEvents s As CommandButton

Private Sub Form_Activate()
    ev 'Не работает в Form_Load
End Sub

Private Sub s_Click()
    Unload Me
End Sub

Private Sub ev()
    Command2.Visible = True
    Dim oj As Control
    For Each oj In Me.Controls
        Debug.Print oj.Name, oj.Visible
        If oj.Visible = True Then Set s = oj
    Next
End Sub

Dim WithEvents myControl As UserControl
Set myControl = Me.mySmall ' Ошибка- не совпадение типов

Dim WithEvents myControl As VBControlExtender

Private Sub myControl_ObjectEvent(Info As EventInfo)
    Select Case Info.name
        Case "Minimized": MsgBox "Minimized"
        Case "LoadForm": MsgBox "LoadForm"
        Case "Closed": Unload Me
        Case "MoveForm": MsgBox "MoveForm"
        Case ...
    End Select
    Debug.Print Info.name
End Sub

'Модуль загружает форму
Function LoadForm(ByVal tCaption As String, Optional formName As myFormName =  0 , Optional mKey As String, Optional mTop As Long =  500 , Optional mLeft As Long =  400 )
    For Each oForm In Forms
        If oForm.Caption = tCaption Then
            Call myWindowSetFocus(tCaption)
            Exit Function
        End If
    Next
   
    Set oForm = New frmBook
    Select Case formName
        Case - 2 : frmList.Show: Call SaveText("Открытие: " & frmSelect.Caption,  1 )
        Case - 1 : frmSelect.Show: Call SaveText("Открытие: Интернет",  1 )
        Case  0 
            With oForm
                .Caption = mKey
                .Tag = formName
                .Top = mTop
                .Left = mLeft
                .myListFile.Visible = True
                .myListFile.Rec = mKey
            End With
        Case ........
    End Select
    Call myWindowLoad(tCaption,  1 )
    Call SaveText("Открытие: " & tCaption,  1 )
End Function

'Событие UserControl
Private Sub UserControl_Show()
    RaiseEvent LoadForm(UserControl.ScaleWidth, UserControl.ScaleHeight)
End Sub

Dim WithEvents myControl As VBControlExtender
Private Sub mEvent()
    Dim obj As Control
    For Each obj In Me.Controls
        If obj.Visible = True Then
            Set myControl = obj
        End If
    Next
End Sub

'1 Событие формы
Private Sub Form_Load()
    Call mEvent 
    Debug.Print "Form_Load" ', myControl.name
End Sub
'myControl=Nothing (myControl=myListFile если есть стоп точка на Form_Load)
'2 Событие контрола
Private Sub myListFile_LoadForm(ByVal mWidth As Long, ByVal mHaignt As Long)
    ....
End Sub
'myControl =myListFile

'3 Событие формы
Private Sub Form_Activate()

End Sub

'Только после этого начинает работать
Private Sub myControl_ObjectEvent(Info As EventInfo)
    Select Case Info.name
        Case "Minimized": MsgBox "Minimized"
        Case "LoadForm": MsgBox "LoadForm"
            Me.Width = Info.EventParameters("mWidth").Value
            Me.Height = Info.EventParameters("mHaignt").Value
        Case "Closed": Unload Me
        Case "Click": Call LoadForm(Info.EventParameters("mKey").Value, myListFile.mType, Str(Info.EventParameters("mKey")))
        Case "MoveForm": Call meMove
    End Select
End Sub