Menampilkan Data Dan Menyortir Data

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 6.0 (Sp2)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	ListView	1	View	3-lvwReport

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim i As Integer x = 0 With ListView1 .View = lvwReport 'Buat tampilan report... 'Tambahkan 3 kolom... .ColumnHeaders.Add , , "Kolom ke-1" .ColumnHeaders.Add , , "Kolom ke-2" .ColumnHeaders.Add , , "Kolom ke-3" 'Tambahkan data sebanyak 20... For i = 1 To 20 .ListItems.Add 1, Key:="", Text:="Data 1 ke-" & i '21 - i .ListItems(1).ListSubItems.Add , , "Data 2 ke-" & i '21 - i .ListItems(1).ListSubItems.Add , , "Data 3 ke-" & i '21 - i Next i End With End Sub Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'Jika header kolom diklik, data akan disortir 'secara Ascending atau Descending Select Case ColumnHeader Case "Kolom ke-1" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True Case "Kolom ke-2" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True Case "Kolom ke-3" If ListView1.SortOrder = lvwDescending Then ListView1.SortOrder = lvwAscending Else ListView1.SortOrder = lvwDescending End If ListView1.Sorted = True End Select End Sub