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", "kopierter Text"))
   End Sub
 
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
      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
   End Sub
End Class
 
Public Class ComboBoxItem
   Public Sub New(ByVal feldA As String, ByVal feldB As String)
      pFeldA = feldA
      pFeldB = feldB
   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
 
   Public Overrides Function ToString() As String
      Return FeldA
   End Function
End Class