Public Class Form1
 
   ''' <summary>
   ''' Helper Klasse
   ''' </summary>
   ''' <remarks>
   ''' Diese Klasse speichert den GameNamen und das
   ''' zugehörige Image. Die Klasse wird als Item 
   ''' für die ComboBox benötigt.
   ''' </remarks>
   Private Class GameItem
      Private m_GameName As String
      Private m_GameImage As Image
      Private m_GameInfo As String
 
      Public Sub New(ByVal sGameName As String, ByVal iGameImage As Image, _
        ByVal sGameInfo As String)
         m_GameName = sGameName
         m_GameImage = iGameImage
         m_GameInfo = sGameInfo
      End Sub
 
      Public Property GameName() As String
         Get
            Return m_GameName
         End Get
         Set(ByVal value As String)
            m_GameName = value
         End Set
      End Property
 
      Public Property GameImage() As Image
         Get
            Return m_GameImage
         End Get
         Set(ByVal value As Image)
            m_GameImage = value
         End Set
      End Property
 
      Public Property GameInfo() As String
         Get
            Return m_GameInfo
         End Get
         Set(ByVal value As String)
            m_GameInfo = value
         End Set
      End Property
 
      Public Overrides Function ToString() As String
         Return Me.m_GameName
      End Function
   End Class
 
 
 
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      ' GameItems der ListBox hinzufügen
      Me.ComboBox1.Items.Add(New GameItem("Quake 4", My.Resources.img1, "FSK" & _
        "16"))
      Me.ComboBox1.Items.Add(New GameItem("Unreal Tournament 3", _
      My.Resources.img2, "FSK 16"))
      Me.ComboBox1.Items.Add(New GameItem("Autobahn Raser", My.Resources.img1, _
      "FSK 6"))
      Me.ComboBox1.Items.Add(New GameItem("Willi Werkel", My.Resources.img1, _
      "FSK 16"))
      Me.ComboBox1.Items.Add(New GameItem("Bernd der Bär", My.Resources.img1, _
      "FSK 12"))
 
      Me.ComboBox1.Sorted = True
      Me.ComboBox1.SelectedIndex = 0
   End Sub
 
 
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
      ' Das selektierte Item der ComboBox in eine Variable vom Type GameItem 
      ' holen
      Dim i As GameItem = CType(Me.ComboBox1.SelectedItem, GameItem)
 
      ' PictureBox mit dem Bild aus i.GameImage laden
      Me.PictureBox1.Image = i.GameImage
 
      ' Label mit der GameInfo bestücken
      Me.Label1.Text = i.GameInfo
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control