Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Call FillComboBox()
   End Sub
 
   Private Sub FillComboBox()
      ComboBox1.Items.Add(New ComboBoxItem("test", "strg und v", "strg und b"))
   End Sub
 
   Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
      e.SuppressKeyPress = True
      e.Handled = True
 
      If e.Control And e.KeyCode = Keys.V Then
         If ComboBox1.SelectedItem IsNot Nothing Then
            Dim item As ComboBoxItem = CType(ComboBox1.SelectedItem, _
              ComboBoxItem)
 
            If item.FeldB <> String.Empty Then My.Computer.Clipboard.SetText( _
              item.FeldB)
         End If
      ElseIf e.Control And e.KeyCode = Keys.B Then
         If ComboBox1.SelectedItem IsNot Nothing Then
            Dim item As ComboBoxItem = CType(ComboBox1.SelectedItem, _
              ComboBoxItem)
 
            If item.FeldC <> String.Empty Then My.Computer.Clipboard.SetText( _
              item.FeldC)
         End If
      End If
   End Sub
End Class
 
Public Class ComboBoxItem
   Public Sub New(ByVal feldA As String, ByVal feldB As String, ByVal feldC As _
     String)
      pFeldA = feldA
      pFeldB = feldB
      pFeldC = feldC
   End Sub
 
   Private pFeldA As String
   Public Property FeldA() As String
      Get
         Return pFeldA
      End Get
      Set(ByVal value As String)
         pFeldA = value
      End Set
   End Property
 
   Private pFeldB As String
   Public Property FeldB() As String
      Get
         Return pFeldB
      End Get
      Set(ByVal value As String)
         pFeldB = value
      End Set
   End Property
 
   Private pFeldC As String
   Public Property FeldC() As String
      Get
         Return pFeldC
      End Get
      Set(ByVal value As String)
         pFeldC = value
      End Set
   End Property
 
   Public Overrides Function ToString() As String
      Return FeldA
   End Function
End Class