How to pop up the column header name?

How to pop up the column header name from listview and also its data type?My listview name is listview1. I know I have to loop the column header. Then how to get the header name? Have example to go futher?

Code:

---

Option Explicit

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Select Case ColumnHeader.Index
        Case 0
            '
        Case 1
            '
        Case 2
            '
    End Select
End Sub

---

:)