Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim r As New Random(Now.Second)
        Dim a As Integer
        Dim lv As ListView = New ListView
        Dim lvi As ListViewItem
        lv.Size = Me.Size
        Me.Controls.Add(lv)
        lv.Columns.Add("SPALTE", 100, HorizontalAlignment.Center)
        While r.Next(0, 100) <> 0
            a = r.Next
            lvi = New ListViewItem(a)
            If a Mod 2 = 0 Then
                lvi.BackColor = Color.Red
            Else
                lvi.BackColor = Color.Green
            End If
            lv.Items.Add(lvi)
        End While
    End Sub
End Class