Dim WithEvents lbo As New ListBox With _
{.Parent = Me, .Top = 10, .Width = 250, .Left = 180}
 
Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
 
     With lbo 
       .ItemHeight = 50
       .DrawMode = DrawMode.OwnerDrawVariable
       .Items.Add("Headline/Normaler Text/Noch eine Zeile")
       .Items.Add("Headline2/Folgezeile/Noch eine Zeile")
    End With
 End Sub
 
 Private Sub ListBox1_DrawItem(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.DrawItemEventArgs) _
     Handles lbo.DrawItem
 
     If e.Index < 0 Then Exit Sub
     Dim sLines() As String = lbo.Items(e.Index).ToString.Split("/"c)
 
     Dim headFont As Font = New Font("Arial", 12)
     Dim linefont As Font = New Font("Arial", 9)
 
     ' Hintergrund zeichnen
     e.DrawBackground()
 
     With e.Graphics
        Using forebrush As New SolidBrush(e.ForeColor)
                'Header ausgeben
                .DrawString(sLines(0), headFont, forebrush, e.Bounds.X, _
                  e.Bounds.Y)
                ' Folgezeilen ausgeben
                For i As Integer = 1 To sLines.Count - 1
                    .DrawString(sLines(i), linefont, forebrush, _
                    e.Bounds.X, e.Bounds.Y + 6 + i * 12)
                Next i
        End Using
    End With
 End Sub