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