I came across some code the other day that I found useful and figured I would pass it along.  This code is a VB .NET custom control that adds an image to each item of a combobox control.  I mad a few changes to the code to convert it into a standalone class.  Hope someone out there finds this useful.

'Main Implementation

Imports System.Windows.Forms
Imports System.Drawing

Namespace ExtCon

    Public Class PictureCombobox
        Inherits ComboBox

        Private imgList As ImageList

        Public Sub AddItem(ByVal img As Image, ByVal name As String)
            imgList.Images.Add(img)
            Me.Items.Add(name)
            Me.ItemHeight = imgList.ImageSize.Height
            Me.Width = Me.imgList.ImageSize.Width + 18
        End Sub

        Private Sub PictureCombobox_DrawItem(sender As Object, e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
            If e.Index <> -1 Then
                e.Graphics.DrawImage(imgList.Images(e.Index), e.Bounds.Left, e.Bounds.Top)
            End If
        End Sub


        Private Sub PictureCombobox_MeasureItem(sender As Object, e As System.Windows.Forms.MeasureItemEventArgs) Handles Me.MeasureItem
            e.ItemHeight = imgList.ImageSize.Height
            e.ItemWidth = imgList.ImageSize.Width
        End Sub
    End Class

End Namespace




'Designer code

Partial Class PictureCombobox
    Inherits System.ComponentModel.Component

    <System.Diagnostics.DebuggerNonUserCode()> _
    Public Sub New(ByVal container As System.ComponentModel.IContainer)
        MyClass.New()

        'Required for Windows.Forms Class Composition Designer support
        If (container IsNot Nothing) Then
            container.Add(Me)
        End If

    End Sub

    <System.Diagnostics.DebuggerNonUserCode()> _
    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()

    End Sub

    'Component overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Component Designer
    'It can be modified using the Component Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

End Class




Feel free to donate if you find this useful.

BTC: 19fnZ8D3UAcr1hDkVc4USbxHrFtVNuDUP5
LTC: LiC4tbyTvjzHDN9K1zcJ4RdP53QbtDRgGp
DOGE: D6jxxMURuLXsupesw9YmSzSwMQwQxGM9aG