Option Explicit

Private Sub Form_Load()
ListarMenu Me, List1
End Sub

Private Sub ListarMenu(Frm As Form, List As ListBox)
    Dim ctrl As Control
    For Each ctrl In Frm.Controls
        If TypeName(ctrl) = "Menu" Then
            List.AddItem ctrl.Name
        End If
    Next
End Sub