Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Set the style of the scroll arrows
Me.ultraTabControl1.ScrollArrowStyle = ScrollArrowStyle.VisualStudio
' Set ScrollButtons to 'Always' so they are always shown
' even if they are not needed
Me.ultraTabControl1.ScrollButtons = TabScrollButtons.Always
' Set the style of the scroll buttons
Me.ultraTabControl1.ScrollButtonStyle = UIElementButtonStyle.Button3D
' Specify which buttons to show. In this case, the next/previous
' button pair and thumb which will display a scrollbar like thumb
' and thumb track area.
Me.ultraTabControl1.ScrollButtonTypes = ScrollButtonTypes.NextPrevious Or ScrollButtonTypes.Thumb
' Set the number of pixels for the thunb track area
Me.ultraTabControl1.ScrollTrackExtent = 40
' Set the ThemedElementAlpha on the scroll related
' appearances to transparent so they don't draw themed
Me.ultraTabControl1.ScrollTrackAppearance.ThemedElementAlpha = Alpha.Transparent
Me.ultraTabControl1.ScrollButtonAppearance.ThemedElementAlpha = Alpha.Transparent
Me.ultraTabControl1.ScrollButtonAppearance.BackColor = Color.Silver
' Note: Set the ThemedElementAlpha to Opague will cause the
' scroll buttons to be drawn themed on XP systems but only
' if the SupportThemes property is set to true
'Me.ultraTabControl1.ScrollTrackAppearance.ThemedElementAlpha = Alpha.Opaque
'Me.ultraTabControl1.ScrollButtonAppearance.ThemedElementAlpha = Alpha.Opaque
End Sub