How to pop up the column header name?

[RobDog888]

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