Private Sub ListView1_Click()
Dim Elmnt As ListSubItem
Dim n As Integer
n = ListView1.SelectedItem.Index
if n>0 then
ListView1.ListItems(n).ForeColor = RGB(0, 0, 0)
ListView1.ListItems(n).Bold = False
For Each Elmnt In ListView1.ListItems(n).ListSubItems
Elmnt.ForeColor = RGB(0, 0, 0)
Elmnt.Bold = False
Next
End If
If ListView1.ListItems.Count = 0 Then Exit Sub
ListView1.SelectedItem.Bold = True
ListView1.SelectedItem.ForeColor = RGB(255, 0, 0) '255
For Each Elmnt In ListView1.SelectedItem.ListSubItems
Elmnt.ForeColor = RGB(255, 0, 0)
Elmnt.Bold = True
Next
ListView1.Refresh
ComboBox3.Text = ListView1.SelectedItem
TextBox5.Text = ListView1.SelectedItem.SubItems(1)
ComboBox4.Text = ListView1.SelectedItem.SubItems(2)
TextBox6.Text = ListView1.SelectedItem.SubItems(3)
End Sub