baixei este codigo abaixo, porem e somente para ListBox.

Como altero o mesmo para funcionar para ListView1 ?

Private Sub CommandButton6_Click() ' Ordenar
Dim i, j, x As Long, Temp As String
    With Me.ListBox2
        For j = ListBox2.ListCount - 1 To 0 Step -1
            For i = LBound(.List) To UBound(.List) - 1 Step 1
                If .List(i, 0) * 1 > .List(i + 1, 0) * 1 Then
                    For x = 0 To (.ColumnCount - 1) Step 1
                        Temp = .List(i, x)
                        .List(i, x) = .List(i + 1, x)
                        .List(i + 1, x) = Temp
                    Next x
                End If
            Next i
        Next j
    End With
End Sub