Private Sub ListView1_MouseClick(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
 
    Dim oItem As ListViewItem
    Dim sText As String = ""
 
    oItem = ListView1.GetItemAt(e.X, e.Y)
    If oItem IsNot Nothing Then
      For Each oSubItem As ListViewItem.ListViewSubItem In oItem.SubItems
        If oSubItem.Bounds.Contains(e.X, e.Y) Then
          sText = oSubItem.Text
        End If
      Next
    End If
    ListView1.Tag = sText
  End Sub

  Private Sub ListView1_KeyDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
 
    If e.KeyCode = Keys.C AndAlso e.Control = True Then
      If CStr(ListView1.Tag) <> "" Then
        My.Computer.Clipboard.SetText(ListView1.Tag)
      End If
    End If
  End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de