ERRO A LOADING CUIX MENU BAR!
Public Class COMMANDS
<CommandMethod("LoadCUIX")> _
Public Sub LoadToolbars()
Const cuiname As String = "MYCUINAME"
Const cuifile As String = "C:\TESTE\MYCUITESTE.cuix"
Dim mg As AcadMenuGroup '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ERRO COMPILATION
Try
MsgBox("Attempt to access our menugroup")
mg = Application.MenuGroups.Item(cuiname)
Catch ex As System.Exception
MsgBox("Failure simply means we need to load the CUI first")
Application.MenuGroups.Load(cuifile)
mg = Application.MenuGroups.Item(cuifile) '<<<<<<<<<<<<<<<<<<<ERROR EXECUTE
End Try
MsgBox("Cycle through the toobars, setting them to visible")
Dim i As Integer
For i = 0 To mg.Toolbars.Count - 1
MsgBox(i)
mg.Toolbars.Item(i).Visible = True
Next
End Sub
End Class
End Namespace
