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
 
      Public Sub New(ByVal sGameName As String, ByVal iGameImage As Image)
         m_GameName = sGameName
         m_GameImage = iGameImage
      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 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))
      Me.ComboBox1.Items.Add(New GameItem("Unreal Tournament 3", _
        My.Resources.img2))
   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
   End Sub
End Class

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