How to add images in ComboBox dropdown items?

//To Display the image in TextBox
this.comboBoxAdv1.ShowImageInTextBox = true;
this.comboBoxAdv1.ListBox.DrawItem += new DrawItemEventHandler(ListBox_DrawItem);
//Handling the DrawItem event
void ListBox_DrawItem(object sender, DrawItemEventArgs e)
{
    ListBox list = sender as ListBox;
    string text = list.Items[e.Index].ToString();
    if (e.Index < 0)
        return;
    list.ItemHeight = 12;
    Rectangle Bounds = new Rectangle(40, 1, 10, 10);
    if (list.Items[0].ToString() == text)
    {
        //To Draw the image in listBox
        e.Graphics.DrawImage(this.imageList1.Images[0], Bounds);               
    }
    Bounds.Y += 12;
    if (list.Items[1].ToString() == text)
    {
        e.Graphics.DrawImage(this.imageList1.Images[1], Bounds);
    }
    Bounds.Y += 12;
    if (list.Items[2].ToString() == text)
    {
        e.Graphics.DrawImage(this.imageList1.Images[2], Bounds);            
    }
    Bounds.Y += 12;
    if (list.Items[3].ToString() == text)
    {
        e.Graphics.DrawImage(this.imageList1.Images[3], Bounds);
    }
    Bounds.Y += 12;
    if (list.Items[4].ToString() == text)
    {
        e.Graphics.DrawImage(this.imageList1.Images[0], Bounds);
    }
}

'To Display the image in TextBox
Me.comboBoxAdv1.ShowImageInTextBox = True
AddHandler comboBoxAdv1.ListBox.DrawItem, AddressOf ListBox_DrawItem
'Handling DrawItem event
Private Sub ListBox_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs)
 Dim list As ListBox = TryCast(sender, ListBox)
 Dim text As String = list.Items(e.Index).ToString()
 If e.Index < 0 Then
  Return
 End If
 list.ItemHeight = 12
 Dim Bounds As New Rectangle(40, 1, 10, 10)
 If list.Items(0).ToString() = text Then
  'To Draw the image in listBox
  e.Graphics.DrawImage(Me.imageList1.Images(0), Bounds)
 End If
 Bounds.Y += 12
 If list.Items(1).ToString() = text Then
  e.Graphics.DrawImage(Me.imageList1.Images(1), Bounds)
 End If
 Bounds.Y += 12
 If list.Items(2).ToString() = text Then
  e.Graphics.DrawImage(Me.imageList1.Images(2), Bounds)
 End If
 Bounds.Y += 12
 If list.Items(3).ToString() = text Then
  e.Graphics.DrawImage(Me.imageList1.Images(3), Bounds)
 End If
 Bounds.Y += 12
 If list.Items(4).ToString() = text Then
  e.Graphics.DrawImage(Me.imageList1.Images(0), Bounds)
 End If
End Sub