<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <appSettings>
        <!-- default game settings -->
        <add key="ImagesX" value="3" />
        <add key="ImagesY" value="4" />
        <add key="SourceImages" value="..\SourceImages" />
        <add key="CardBackTile" value="%windir%\River Sumida.bmp" />
        <add key="MatchSound" value="%windir%\Media\ding.wav" />
        <add key="NoMatchSound" value="%windir%\Media\chord.wav" />
    </appSettings>
</configuration>

Public Shared Function LoadSettings() As UserSettings
    Dim loadedSettings As UserSettings = Nothing
    Dim xs As New XmlSerializer(GetType(UserSettings))
    If File.Exists(SettingsPath) Then
        Dim sr As New IO.StreamReader(SettingsPath)
        loadedSettings = CType(xs.Deserialize(sr), UserSettings)
        sr.Close()
    End If

    If loadedSettings Is Nothing Then

        'Load defaults

        loadedSettings = New UserSettings
        With loadedSettings
            Dim ar As New System.Configuration.AppSettingsReader
            .ImagesX = DirectCast(ar.GetValue("ImagesX", _
                GetType(Integer)), Integer)
            .ImagesY = DirectCast(ar.GetValue("ImagesY", _
                GetType(Integer)), Integer)
            .SourceImages = DirectCast(ar.GetValue("SourceImages", _
                GetType(String)), String)
            .CardBackImage = DirectCast(ar.GetValue("CardBackTile", _
                GetType(String)), String)
            .MatchSound = DirectCast(ar.GetValue("MatchSound", _
                GetType(String)), String)
            .NoMatchSound = DirectCast(ar.GetValue("NoMatchSound", _
                GetType(String)), String)
        End With
    End If

    'make sure the grid size values are correct
    With loadedSettings
        If .ImagesX <= 0 Then .ImagesX = 1
        If .ImagesY <= 0 Then .ImagesY = 1

        If Not ((.ImagesX * .ImagesY) \ 2) * 2 = _
                (.ImagesX * .ImagesY) Then
                'ImagesX * ImagesY must equal an even #
            If .ImagesX > 1 Then
                .ImagesX -= 1
            ElseIf .ImagesY > 1 Then
                .ImagesY -= 1
            End If
        End If
    End With

    Return loadedSettings
End Function

For i As Integer = 0 To imagesToPick - 1
    range = imageList.Count - i
    pick = GetRndValue(range) ' pick a random index
    Dim found As Boolean = False
    Do
        ' if that index has already been used, move to the next
        If orderedImages.Contains(imageList(pick)) Then
            pick += 1
            If pick >= imageList.Count Then pick = 0
        ' otherwise use it
        Else
            orderedImages.Add(imageList(pick))
            found = True
        End If
    Loop Until found
Next

Private Sub gameArea_CardSelected(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles gameArea.CardSelected
    infoMessage.Text = String.Empty

    If gameArea.FirstSelection > -1 AndAlso _
            gameArea.SecondSelection > -1 Then

        flipBackTimer.Enabled = True
        infoMessage.Text = "Not A Match!"
        Me.gameArea.Cursor = Cursors.WaitCursor
        NumberOfAttempts += 1
        matchAttempts.Text = NumberOfAttempts

        Dim noMatchSound As String = _
            Environment.ExpandEnvironmentVariables( _
            m_Settings.NoMatchSound)
        SoundUtils.PlaySound(noMatchSound, _
            IntPtr.Zero, SoundUtils.SoundFlags.SND_ASYNC)
    End If
End Sub

Private Sub flipBackTimer_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles flipBackTimer.Tick
    flipBackTimer.Enabled = False
    gameArea.FlipCardsBackOver()
    Me.gameArea.Cursor = Cursors.Default
    infoMessage.Text = String.Empty
End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.High

    If (Not m_CardBack Is Nothing AndAlso Not m_Images Is Nothing _
            AndAlso m_Images.GetLength(0) > 0) Then
        areas.Clear()

        Dim imageWidth, imageHeight As Integer
        imageWidth = (Me.Width - _
            (m_Spacing * (m_ImagesAcross + 1))) \ m_ImagesAcross
        imageHeight = (Me.Height - _
            (m_Spacing * (m_ImagesDown + 1))) \ m_ImagesDown

        Dim currentX, currentY As Integer

        For row As Integer = 0 To Me.m_ImagesDown - 1
            currentY = (row * (m_Spacing + imageHeight)) + m_Spacing
            For col As Integer = 0 To Me.m_ImagesAcross - 1
                currentX = (col * (m_Spacing + imageWidth)) + m_Spacing
                Dim i As Integer = (row * m_ImagesAcross) + (col)

                If i <= m_Images.GetLength(0) Then
                    Dim imageRect As Rectangle
                    If Me.FirstSelection = i OrElse _
                        Me.SecondSelection = i OrElse _
                        m_Matches.Contains(i) Then

                        'draw real image
                        Dim realImage As Image = Me.m_Images(i)
                        imageRect = ResizeImage(realImage, _
                            imageHeight, imageWidth)
                        imageRect.Offset(currentX, currentY)
                        e.Graphics.DrawImage(realImage, imageRect)
                    Else
                        'draw card back
                        imageRect = New Rectangle(currentX, _
                            currentY, imageWidth, imageHeight)
                        e.Graphics.DrawImage(m_CardBack, imageRect)
                    End If

                    'draw a border around whatever image I drew
                    Dim myNewPen As Pen = New Pen(Color.Black)
                    myNewPen.Width = 1
                    e.Graphics.DrawRectangle(myNewPen, imageRect)
                    myNewPen.Dispose()

                    'add the image area into a collection that is used 
                    'to do a 'hit test' when the user clicks game surface
                    Dim ca As New ClickArea
                    ca.area = New Region(imageRect)
                    ca.index = i
                    areas.Add(ca)
                End If
            Next
        Next
    End If
End Sub

Public Class SoundUtils
    <DllImport("winmm.dll")> _
    Public Shared Function PlaySound(ByVal szSound As String, _
       ByVal hModule As IntPtr, ByVal flags As SoundFlags) As Integer
    End Function

    <Flags()> _
    Public Enum SoundFlags As Integer
        SND_SYNC = &H0         ' play synchronously (default)
        SND_ASYNC = &H1        ' play asynchronously
        SND_NODEFAULT = &H2    ' silence (default) if sound not found
        SND_MEMORY = &H4       ' pszSound points to a memory file
        SND_LOOP = &H8         ' loop the sound until next sndPlaySound
        SND_NOSTOP = &H10      ' don't stop any currently playing sound
        SND_NOWAIT = &H2000    ' don't wait if the driver is busy
        SND_ALIAS = &H10000    ' name is a registry alias
        SND_ALIAS_ID = &H110000' alias is a predefined id
        SND_FILENAME = &H20000 ' name is file name
        SND_RESOURCE = &H40004 ' name is resource name or atom
    End Enum
End Class