Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button8.Click
If (Not Me.ultraExplorerBar1.ImageListSmall Is Nothing) Then
' Add some images to the ImageList that supplies the small images.
Me.ultraExplorerBar1.ImageListSmall.Images.Add(SystemIcons.Application)
Me.ultraExplorerBar1.ImageListSmall.Images.Add(SystemIcons.Asterisk)
' Add some images to the ImageList that supplies the large images.
Me.ultraExplorerBar1.ImageListSmall.Images.Add(SystemIcons.Application)
Me.ultraExplorerBar1.ImageListSmall.Images.Add(SystemIcons.Asterisk)
End If
' Set the small and large image sizes. This will determine how much space the control sets
' aside for small and large images.
Me.ultraExplorerBar1.ImageSizeSmall = New Size(22, 22)
Me.ultraExplorerBar1.ImageSizeLarge = New Size(42, 43)
' Set the color that chould be interperted as the transparent color.
Me.ultraExplorerBar1.ImageTransparentColor = Color.Magenta
End Sub