Membuat ListView Berwarna di VB 6.0

Membuat sebuah program sama halnya dengan melukis, bagaimana membuat orang yang melihat program yang kita buat dapat tertarik secara visual kemudian tertarik secara fungsi.
Saya akan contohkan penggunaan ListView Berwarna. Sudah banyak yang memberi contoh di situs2 terkemuka baik di indonesia maupun milik orang "asing" , tetapi ilmu tetaplah ilmu, saya merasa kurang klo belum membagikannya pada rekan2 programmer.

Contoh ListView nanti :

Source Code :

'Buatlah form baru
'Klik Project-->components-->Microsoft Windows Commont control 6.0 (SP6)
'Perhatikan kotak Toolbox, pilih ListView
'Perhatikan kotak Toolbox, pilih Picture
'Buat Sub seperti dibawah ini,
'Klo ingin menggunakan tinggal memanggil sub tersebut.

Private Sub color(Color1 As OLE_COLOR, Color2 As OLE_COLOR)
    If ListView.ListItems.Count > 0 Then
        ListView.PictureAlignment = lvwTile
        Picture.Width = ListView.Width
        Picture.AutoRedraw = True
        Picture.Height = 2 * ListView.ListItems(1).Height + 30
        Picture.Line (0, 0)-(Picture.ScaleWidth, (Picture.Height)), Color1, BF
        Picture.Line (0, (Picture.Height - (Picture.Height / 2)))-(Picture.ScaleWidth, (Picture.Height)), Color2, BF
        Set ListView.Picture = Picture.Image
    end if
End Sub

Private Sub Form_Load()
    call color (&H00FFFFFF& , &H00C0E0FF&)
End Sub

Semoga Bermanfaat.