Private Sub CopyNodes(ByRef SourceListView As ListView, _
  ByRef TargetListView As ListView)
 
  Dim i As Integer
  Dim NewItem As ListItem
  With TargetListView
    .ListItems.Clear
    Set .Icons = SourceListView.Icons
    Set .SmallIcons = SourceListView.SmallIcons
 
    For i = 1 To SourceListView.ListItems.Count - 1
      Set NewItem = TargetListView.ListItems.Add(,, "")
      CopyItemProperties SourceListView.ListItems(i), NewItem
    Next i
  End With
End Sub
 
Private Sub CopyItemProperties(ByRef SourceItem As ListItem, _
  ByRef TargetItem As ListItem)
 
  Dim i As Integer
  TargetItem.Text = SourceItem.Text
  TargetItem.Key = SourceItem.Key
  For i = 1 To SourceItem.ListSubItems.Count - 1
    TargetItem.SubItems(i) = SourceItem.SubItems(i)
  Next i
  TargetItem.Bold = SourceItem.Bold
  TargetItem.Checked = SourceItem.Checked
  TargetItem.ForeColor = SourceItem.ForeColor
  TargetItem.Ghosted = SourceItem.Ghosted
  TargetItem.Left = SourceItem.Left
  TargetItem.Top = SourceItem.Top
  TargetItem.Tag = SourceItem.Tag
  TargetItem.ToolTipText = SourceItem.ToolTipText
  TargetItem.Icon = SourceItem.Icon
  TargetItem.SmallIcon = SourceItem.SmallIcon
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.