"Guy Dillen" <guy_dillen@nospam.hotmail.com> schrieb:

\\\
Dim p As New Person()
p.Name = "Pink Panther"
p.Age = 22
Me.ComboBox1.Items.Add(p)

' Test.
MessageBox.Show(DirectCast(Me.ComboBox1.Items.Item(0), Person).ToString())
.
.
.
Public Class Person
   Private m_Name As String
   Private m_Age As Integer

   Public Property Name() As String
       Get
           Return m_Name
       End Get
       Set(ByVal Value As String)
           m_Name = Value
       End Set
   End Property

   Public Property Age() As Integer
       Get
           Return m_Age
       End Get
       Set(ByVal Value As Integer)
           m_Age = Value
       End Set
   End Property

   Public Overrides Function ToString() As String
       Return Me.Name & " (" & Me.Age.ToString() & ")"
   End Function
End Class
///

Alternatively, you can use a bound combobox:

\\\
With Me.ListBox1

   ' This can be an 'ArrayList' or array too, for example!
   .DataSource = Database.FindPeople(...)
   .DisplayMember = "Name"
   .ValueMember = "Age"
End With
///