Public Class frmOpacity
 
 
    Dim WithEvents lbo As New ListBox With _
            {.Parent = Me, .Width = 200}
 
 
    Private Sub frmOpacity_Load(sender As System.Object, _
                            e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0.7
 
        With lbo
            .DrawMode = DrawMode.OwnerDrawVariable
            .Font = New Font("Arial", 14, FontStyle.Italic)
            .ItemHeight = 30
 
            With .Items
                .Add("Do You See Me?")
                .Add("Do You See This?")
                .Add("Really???")
                .Add("Can't believe It !")
            End With
        End With
 
    End Sub
 
 
    Private Sub lbo_DrawItem(sender As Object, _
        e As System.Windows.Forms.DrawItemEventArgs) Handles lbo.DrawItem
 
        e.DrawBackground()
 
        Using mybrush As New Drawing2D.LinearGradientBrush _
            (New Point(0, 0), New Point(e.Bounds.Width, e.Bounds.Height), _
             Color.Yellow, Color.Blue)
 
            e.Graphics.DrawString(lbo.Items(e.Index).ToString(),
                 e.Font, mybrush, e.Bounds, StringFormat.GenericDefault)
 
        End Using
 
        e.DrawFocusRectangle()
    End Sub
End Class