Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        ComboBox1.Items.Add("Quake 4")
        ComboBox1.Items.Add("Unreal Tournament 3")
        ComboBox1.Items.Add("Battlefield 2")
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        End
    End Sub
     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedItem 
           Case "Quake 4"
              PictureBox1.Image = My.Resources.q3
           Case "Battlefield 2"
              PictureBox1.Image = My.Resources.bf2
           Case = "Unreal Tournament 3"
              PictureBox1.Image = My.Resources.ut3
        End If
    End Sub
End Class