Private Sub ProductsUltraGrid_InitializeLayout(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs)_
Handles ProductsUltraGrid.InitializeLayout
Dim theValueList As New ValueList()
Dim theImageConverter As New ImageConverter()
Me.CategoriesTableAdapter1.Fill(Me.NorthwindDataSet.Categories)
For Each theRow As PopulateValueListVB.NorthwindDataSet.CategoriesRow In Me.NorthwindDataSet.Categories
If theRow.Picture IsNot Nothing AndAlso theRow.Picture.Length > 0 Then
theValueList.ValueListItems.Add(theRow.CategoryID, theRow.CategoryName).Appearance.Image = _
theImageConverter.ConvertFrom(theRow.Picture)
End If
Next
e.Layout.Bands(0).Columns("CategoryID").ValueList = theValueList
End Sub