VS 2010 ListView Selected column

Private Sub MainList_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MainList.MouseDown
        Dim ht As ListViewHitTestInfo = MainList.HitTest(e.Location)
        Select ht.Location
            Case ListViewHitTestLocations.Label
                MsgBox("text = " & Chr(34) & ht.SubItem.Text & Chr(34))
        End Select
    End Sub