Imports System.Media
Public Class frmPhoto


    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        Dim intcount As Integer

        If intcount = 4 Then
            intcount = 1
        Else
            intcount += 1

        End If

        Select Case intcount

            Case 1
                picPhoto.BackgroundImage = My.Resources.mediatrailer
                My.Computer.Audio.Play(My.Resources.hello, AudioPlayMode.Background)
            Case 2
                picPhoto.BackgroundImage = My.Resources.the_ppl
                My.Computer.Audio.Play(My.Resources.music, AudioPlayMode.Background)
            Case 3
                picPhoto.BackgroundImage = My.Resources.sketchg
                My.Computer.Audio.Play(My.Resources.innocent, AudioPlayMode.Background)
            Case 4
                picPhoto.BackgroundImage = My.Resources.Terry_Fox_Walk_073
                My.Computer.Audio.Play(My.Resources.ozzy, AudioPlayMode.Background)

        End Select
    End Sub