Não sei se entendi direito sua duvida vejamos:
DIPrincipal.Toolbar1.Buttons(1).ButtonMenus(1).Enabled = False
isto para sub menus da toolbar e para os menus :
MDIPrincipal.Toolbar1.Buttons(1).Enabled = True
E para trabalhar com eles:
Para o menu:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Licença"
frmlicença.Show
frmlicença.Left = 0
frmlicença.Top = 0
Case "Relatorio"
FrmVisualizar.Show
FrmVisualizar.Top = 0
FrmVisualizar.Left = 0
Case "Backup"
Backup.Show
Backup.Left = 0
Backup.Top = 0
Case "Sair"
If MsgBox("Você Quer Sair do Programa?", 36, "Sair do Sistema") = vbYes Then
End
Else
Exit Sub
End If
End Select
End Sub
Para o sub menu :
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
On Error GoTo Trata_Erro
Select Case ButtonMenu.Key
Case "ClassificaçãoE"
FrmConsultaE.Show
FrmConsultaE.Left = 0
FrmConsultaE.Top = 0
Case "ImprimirE"
FrmVisualizarE.Show
FrmVisualizarE.Top = 0
FrmVisualizarE.Left = 0
Case "Individual"
frmcadastro.Show
frmcadastro.Left = 0
frmcadastro.Top = 0
Case "ClassificaçãoT"
ConsultaT.Show
ConsultaT.Left = 0
ConsultaT.Top = 0
Screen.MousePointer = 0
End Select
Exit Sub
Trata_Erro:
MsgBox "Você Selecionou DADOS INVÁLIDOS!!!!"
End Sub
