Private Sub cmBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmBox.SelectedIndexChanged

        Select Case screen
            Case screenA
                aPrice = screenA
                lblPrice.Text = FormatCurrency(aPrice)
                pictureBox.Image = My.Resources.watch_the_social_network_online

            Case screenB
                aPrice = screenB
                lblPrice.Text = FormatCurrency(aPrice)
                pictureBox.Image = My.Resources.movie_poster_27


            Case screenC
                aPrice = screenC
                lblPrice.Text = FormatCurrency(aPrice)
                pictureBox.Image = My.Resources.InceptionPoster
        End Select


    End Sub