Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
450
Toolbar is not showing separator
posted

For index = 0 To list.Count - 1
Dim buttonTool As ButtonTool
buttonTool = CreateButton(list(index).ToolbarBtnText.ToString(), list(index).ToolbarBtnText.ToString(), displayStyle)
UltraToolbarsManager1.Tools.Add(buttonTool)
UltraToolbarsManager1.Toolbars(0).Tools.Add(buttonTool)

ElseIf list(index).ToolbarBtnText.ToString() = "Separator" Then
Me.UltraToolbarsManager1.Toolbars(0).Tools(Me.UltraToolbarsManager1.Toolbars(0).Tools.Count - 1).InstanceProps.IsFirstInGroup = True
End If

Next

am i missing something?