Private Sub Form_Load()
Dim colx As ColumnHeader

'tillåt omorganisering
ListView1.AllowColumnReorder = True

'Sätt status till report
ListView1.View = lvwReport

'Loopa varje ColumnHeader och sätt positionen
'från senaste gångens användning
For Each colx In ListView1.ColumnHeaders
colx.Position = GetSetting(App.Title, "Settings", "Col" & colx.Index, colx.Index)
colx.Width = GetSetting(App.Title, "Settings", "ColWidth" & colx.Index, colx.Width)
Next


End Sub