Public Sub ListviewSort(ByRef View As ListView, ByVal Column As Integer)
'Sortera listview beroende på vilken kolumn som valts

If View.SortKey <> Column - 1 Then
View.ColumnHeaders(View.SortKey + 1).Text = _
Left(View.ColumnHeaders(View.SortKey + 1).Text, 1) _
& LCase(Mid(View.ColumnHeaders(View.SortKey + 1).Text, 2))
View.ColumnHeaders(Column).Text = UCase(View.ColumnHeaders(Column).Text)
View.SortKey = Column - 1
End If
End Sub

Public Sub ListviewAutoFit(ByRef List As ListView, _
ByRef AutosizeLabel As Label)
Dim i As Long
Dim j As Long
Dim State As Boolean

With List
State = .Visible
.Visible = False

For i = 1 To .ColumnHeaders.Count
If .ColumnHeaders(i).Text <> "" Then
AutosizeLabel.Caption = .ColumnHeaders(i).Text
.ColumnHeaders(i).Width = AutosizeLabel.Width + 280
For j = 1 To .ListItems.Count
If i = 1 Then
AutosizeLabel.Caption = .ListItems(j) _
& IIf(.Icons Is Nothing, "", "XX")
Else
AutosizeLabel.Caption = .ListItems(j).SubItems(i - 1)
End If

If .ColumnHeaders(i).Width < AutosizeLabel.Width + 280 Then
.ColumnHeaders(i).Width = AutosizeLabel.Width + 280
End If
Next
Else
.ColumnHeaders(i).Width = 0
End If
Next

.Visible = State
End With
End Sub