Private Sub ListBox1_DrawItem(...) Handles ListBox1.DrawItem
 
    e.DrawBackground()
 
    Dim F As Font = e.Font
 
    If e.Index = 1 Then
        F = New Font(F, FontStyle.Underline)
    End If
 
    e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), _
        e.Font, New SolidBrush(e.ForeColor), e.Bounds, _
        StringFormat.GenericDefault)
 
    e.DrawFocusRectangle()
End Sub