Private Sub LoadListView1()
Dim i as Byte
For i = 1 To 4
With UF_Notes
With .Controls("ListView" & i)
.ListItems.Clear
With .columnHeaders
.Clear
.Add , , "LTV", 70, lvwColumnLeft
.Add , , "LIGNE", 65, lvwColumnCenter
.Add , , "VOIE", 65, lvwColumnCenter
.Add , , "DU PK", 60, lvwColumnCenter
.Add , , "AU PK", 60, lvwColumnCenter
.Add , , "CAUSES", 96, lwvcolumncenter
End With
.View = 3
.FullRowSelect = True
.Gridlines = True
.labeledit = 1
End With
End With
Next
ComboBoxLTV.Value = ""
TextBoxLIGNE = ""
TextBoxVOIE = ""
TextBoxDU_PK = ""
TextBoxAU_PK = ""
TextboxCAUSES = ""
End Sub