Use the TypeName Function!

Code:
Private Sub Command1_Click()
Dim mymenu As Control

'form1 is the form with the menu's you want.
'I'm sure you can figure out what to do with multiple
'forms   
For Each mymenu In Form1.Controls
    If strComp(TypeName(mymenu), "Menu") = 0 Then
        List1.AddItem mymenu.Name
    End If
Next

End Sub