General information
Category:
Coding, syntax & commands
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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only