VB Code:
  1. Dim ctl As Control

  2. For Each ctl In Me.Controls

  3.     If TypeOf ctl Is Menu Then

  4.         ' do something

  5.     End If

  6. Next ctl