Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        For i As Integer = 0 To 99
            Dim lvi As New ListViewItem("hatatuta")
            lvi.BackColor = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * _
              255)
            lvi.UseItemStyleForSubItems = False
            Dim lvsi As New ListViewItem.ListViewSubItem(lvi, "bubu")
            lvsi.BackColor = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * _
              255)
            lvi.SubItems.Add(lvsi)
            ListView1.Items.Add(lvi)
        Next
    End Sub