Dim Menus As ControlFor Each Menus In fmdPrincipal.ControlsIf Left(Menus.Name, 3) = "mnu" ThenCombo1.AddItem Menus.NameEnd IfNext