Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
#End Region
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add(New Computer("my pc", True, 0))
        Me.ComboBox1.Items.Add(New Computer("my server", False, 1))
        Me.ComboBox1.Items.Add(New Computer("my notebook", True, 2))
        Me.ComboBox1.SelectedIndex = 0
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Not Me.CanFocus Then Return
        Dim myPc As Computer = CType(Me.ComboBox1.SelectedItem, Computer)
        Dim b As Boolean = myPc.IsOn
        MessageBox.Show("""" + myPc.Name + """" + CStr(IIf(b, " ist" & _
          "eingeschaltet", " ist nicht eingeschaltet")))
    End Sub
End Class
 
Public Class Computer
    Public Name As String
    Public IsOn As Boolean
    Public Index As Integer
 
    Public Sub New(ByVal name As String, ByVal ison As Boolean, ByVal index As _
      Integer)
        Me.Name = name
        Me.IsOn = ison
        Me.Index = index
    End Sub
 
    Public Overrides Function ToString() As String
        Return String.Format("{0} ({1}, {2})", Me.Name, Me.IsOn, Me.Index)
    End Function
End Class