Hi!

Try this:

Private Sub btnA_Click()
Dim oA As Control
For Each oA In Me.Controls
If TypeOf oA Is Menu Then
lstA.AddItem oA.Name
End If
Next oA
End Sub