Coba pake ini mas, tinggal klick saja colom header yang mau di sortirnya.

Private Sub ListView_ColumnClick(ByVal ColumnHeader As
MSComctlLib.ColumnHeader)
If (ListView.SortKey = ColumnHeader.Index - 1) Then
   ColumnHeader.Tag = Not Val(ColumnHeader.Tag)
End If

ListView.SortOrder = Abs(Val(ColumnHeader.Tag))
ListView.SortKey = ColumnHeader.Index - 1
ListView.Sorted = True
End Sub

On 01/01/07, Puthut Wibowo <[EMAIL PROTECTED]> wrote:

  Mas/Mbak mau nanya donk,......kalo caranya nyortir List view berdsarkan
kolom ke 3 caranya gimana ? (VB 6).......Thanks

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com






--
==============================
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting     : (62-22) 6030805 Ext 121
Faxs      : (62-22) 6030896
Homepage : http://toni.rahayu.tripod.com

Kirim email ke