Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        Dim p As New Pen(Color.Green, 1)
        Dim obj As Object = Me.ListBox1.Items.Item(e.Index)
        e.Graphics.DrawRectangle(p, e.Bounds)
        e.Graphics.FillRectangle(Brushes.Green, e.Bounds)
        e.Graphics.DrawString(obj.ToString, New Font("ARIAL", 10), _
          Brushes.White, e.Bounds.X, e.Bounds.Y)
        e.Graphics.DrawImage(Image.FromFile(".."), e.Bounds)
    End Sub
    Private Sub fill()
        Me.ListBox1.DrawMode = DrawMode.OwnerDrawVariable
        Me.ListBox1.Items.Add("Test")
        Me.ListBox1.Items.Add("Test2")
    End Sub