Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Dim g As Graphics = TextBox1.CreateGraphics
        For i As Integer = 0 To UBound(TextBox1.Lines)
            If Convert.ToString(i / 2).Contains(".") Then
            Else
                g.FillRectangle(Brushes.LightGray, New Rectangle(New Point(0, i _
                  * TextBox1.Font.Size), New Size(TextBox1.ClientSize.Width, _
                  TextBox1.Font.Size)))
            End If
        Next
    End Sub

"iPod oder EiPott?"