Private Sub ListView1_Click()
Dim Ctrl As Control
Dim i As Integer, j As Byte
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
Controls(ListView1.ColumnHeaders(1).Text) = ListView1.ListItems(i).Text
For j = 1 To ListView1.ColumnHeaders.Count - 1
If j <> ListView1.ColumnHeaders.Count - 1 Then
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" And Ctrl.Tag = ListView1.ColumnHeaders(j + 1).Text Then
Ctrl.Value = ListView1.ListItems(i).ListSubItems(j).Text
End If
Next Ctrl
End If
Next
End If
Next
End Sub