Try this:Originally Posted by Bonkerz
VB Code:
Private Sub Command1_Click() Dim a As Long With ListView1 Me.Text1.Item(0).Text = SelectedItem.Text For a = 1 To .ColumnHeaders.Count - 1 Me.Text1.Item(a).Text = .SelectedItem.ListSubItems.Item(a).Text Next a End With End Sub




Reply With Quote