lvw.View = View.Details
'Spalten erstellen
lvw.Columns.Add("Hauptspalte", 150)
lvw.Columns.Add("Leere mich", 150)
'Zeilen erstellen und Spalten füllen
For i As Integer = 1 To 10
   Dim lvi As ListViewItem =
       New ListViewItem With {.Text = "Row " & i.ToString}
   lvi.SubItems.Add("Sub " & i.ToString)
   lvw.Items.Add(lvi)
Next i
 
'Eine Spalte "leeren"?
For i As Integer = 0 To lvw.Items.Count - 1
    lvw.Items(i).SubItems(1).Text = ""
Next i

For i As Integer = 0 To lv1.Items.Count - 1
    lv2.items.add(i) = lv1.Items(i).SubItems(1).Text 
Next i

 
  'Ziel-Listview leeren
  lvw2.Clear()
 
  lvw2.View = View.Details
 
  'Spaltenköpfe übertragen (Clone)
  For i As Integer = 0 To lvw1.Columns.Count - 1
     lvw2.Columns.Add(DirectCast(lvw1.Columns(i).Clone, ColumnHeader))
  Next i
 
  'Items (Daten-Zeilen) übertragen   
  For i As Integer = 0 To lvw1.Items.Count - 1
     lvw2.Items.Add(DirectCast(lvw1.Items(i).Clone, ListViewItem))
  Next i

lvw2.Items(3).SubItems(1).Text = lvw1.Items(4).SubItems(0).Text

lvw1.Items(i).SubItems(18).Text

 
        lvw1.Clear()
        lvw1.View = View.Details
 
        'Spaltenköpfe erstellen 
        For col As Integer = 0 To 18
            lvw1.Columns.Add(New ColumnHeader() With {.Text = "Col " & _
              col.ToString})
        Next col
 
        'Zeilen und Spalten erstellen / eine Spalte füllen
        For row As Integer = 0 To 99
 
            Dim lvi As ListViewItem = lvw1.Items.Add(New ListViewItem)
            For col As Integer = 0 To 18
                lvi.SubItems.Add(New ListViewItem.ListViewSubItem)
            Next col
            lvi.SubItems(18).Text = "rów " & row.ToString & " sub18"
        Next row
 
        lvw2.Clear()
        lvw2.View = View.Details
 
        *Eine Spalte erstellen / Headertext übernehmen
        lvw2.Columns.Add(lvw1.Columns(18).Text)
 
        'Zeilen erstellen und Werte einer Spalte übertragen
        For row As Integer = 0 To lvw1.Items.Count - 1
            lvw2.Items.Add(lvw1.Items(row).SubItems(18).Text)
        Next row
    End Sub

 'Listview
 Dim WithEvents lvw As New ListView With
        {.Parent = Me, .Size = New Size(400, 400)}
 
 'Ein Label für die Tippanzeige/Eigenschaften beachten 
 Dim lblTool As New Label With
        {.Parent = Me, .Width = 100, .Visible = False,
        .BackColor = Color.Yellow, .BorderStyle = BorderStyle.Fixed3D}
 
 'Ein Stringarray für die Tipptexte
 Dim columntips As String()
 
 'Ein Timer zum Abschalten der Tipps
 Dim WithEvents timTool As New Timer With
        {.Interval = 4000, .Enabled = False}

 lvw.View = View.Details
 
 'Tipparray auf Spaltenzahl verlängern
 Array.Resize(columntips, 6)
 
 'Spaltenköpfe und Spaltentipp-Texte
 For i As Integer = 0 To 5
    lvw.Columns.Add("Col" & i.ToString)
    columntips(i) = "Tipp zu " & i.ToString
 Next i
 
 'Einige DemoItems
 For i As Integer = 0 To 10
    Dim lvi As ListViewItem = New ListViewItem("row" & i.ToString)
    lvw.Items.Add(lvi)
    For k As Integer = 0 To 4
        lvi.SubItems.Add("Sub" & k.ToString)
    Next k
 Next i

   Private Sub lvw_ColumnClick(sender As Object, 
        e As ColumnClickEventArgs) Handles lvw.ColumnClick
 
        lblTool.Visible = False
        timTool.Enabled = False
 
        'Text der Click-Spalte aus Array ins Label
        lblTool.Text = columntips(e.Column)
 
        'Erforderliche Labellänge berechnen
        Dim w As Single
        Using g As Graphics = lblTool.CreateGraphics
            w = g.MeasureString(lblTool.Text, lblTool.Font).Width
        End Using
 
 
        lblTool.Width = CInt(w) + 10
 
        'Label an die Mausposition schieben (verbesserungsfähig)
        Dim p As Point =
            lvw.PointToClient(New Point(MousePosition.X, MousePosition.Y))
 
        lblTool.Location = p
 
        'Tipp-Label sichtbar machen
        lblTool.Visible = True
        lblTool.BringToFront()
        'Abschalttimer aktivieren
        timTool.Enabled = True
    End Sub
 
 
    Private Sub timTool_Tick(sender As Object, e As EventArgs) Handles _
      timTool.Tick
 
        'Nach Intervallzeit das Label wieder verschwinden lassen 
        lblTool.Visible = False
        timTool.Enabled = False
    End Sub