ListView i VB.NET

I VB 6 gøre jeg sådan:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
MSComctlLib.ColumnHeader)

  ListView1.Sorted = True
  ListView1.SortKey = ColumnHeader.Index - 1
  If ListView1.SortOrder = lvwAscending Then
    ListView1.SortOrder = lvwDescending
  Else
    ListView1.SortOrder = lvwAscending
  End If
End Sub

Hvordan fortæller jeg den i VB .NET hvilke column den skal sortere efter. Men kan nemlig ikke bruge Listview1.Sortkey!!