Public Class frmGame

    Dim intPlayer, intComputer, intScore As Integer

    Public Function getRdn() As Integer
        Randomize()
        getRdn = Int(13 * Rnd() + 1)

    End Function

    Private Sub btnMenu_Click(sender As Object, e As EventArgs) Handles btnMenu.Click
        frmAbout.Show()
        Me.Hide()

    End Sub

    Private Sub btnSettings_Click(sender As Object, e As EventArgs) Handles btnSettings.Click
        frmSettings.Show()
        Me.Hide()
    End Sub

    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
        frmHelp.Show()
        Me.Hide()
    End Sub

    Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
        btnPlay.Enabled = False
        btnHi.Enabled = True
        btnLo.Enabled = True
        picRight.Hide()
        picLeft.Show()
        lblResult.Hide()
        intComputer = getRdn()
        Select Case intComputer
            Case 1
                picLeft.Image = My.Resources._2H

            Case 2
                picLeft.Image = My.Resources._3H

            Case 3
                picLeft.Image = My.Resources._4H

            Case 4
                picLeft.Image = My.Resources._5H

            Case 5
                picLeft.Image = My.Resources._6H

            Case 6
                picLeft.Image = My.Resources._7H

            Case 7
                picLeft.Image = My.Resources._8H

            Case 8
                picLeft.Image = My.Resources._9H

            Case 9
                picLeft.Image = My.Resources._10H

            Case 10
                picLeft.Image = My.Resources.JH

            Case 11
                picLeft.Image = My.Resources.QH

            Case 12
                picLeft.Image = My.Resources.KH

            Case 13
                picLeft.Image = My.Resources.AH

        End Select


    End Sub


    Private Sub btnHi_Click(sender As Object, e As EventArgs) Handles btnHi.Click
        btnPlay.Enabled = True
        btnHi.Enabled = False
        btnLo.Enabled = False
        picRight.Show()
        picLeft.Show()
        lblResult.Show()
        intPlayer = getRdn()
        Select Case intPlayer
            Case 1
                picRight.Image = My.Resources._2H

            Case 2
                picRight.Image = My.Resources._3H

            Case 3
                picRight.Image = My.Resources._4H

            Case 4
                picRight.Image = My.Resources._5H

            Case 5
                picRight.Image = My.Resources._6H

            Case 6
                picRight.Image = My.Resources._7H

            Case 7
                picRight.Image = My.Resources._8H

            Case 8
                picRight.Image = My.Resources._9H

            Case 9
                picRight.Image = My.Resources._10H

            Case 10
                picRight.Image = My.Resources.JH

            Case 11
                picRight.Image = My.Resources.QH

            Case 12
                picRight.Image = My.Resources.KH

            Case 13
                picRight.Image = My.Resources.AH

        End Select

        If ((intPlayer > intComputer)) Then

            lblResult.Text = "Winner!"
            intScore += 1
            lblScore.Text = intScore.ToString
        Else
            lblResult.Text = “Loser!"
            intScore = 0
            lblScore.Text = intScore.ToString


        End If
    End Sub


    Private Sub btnLo_Click(sender As Object, e As EventArgs) Handles btnLo.Click
        btnPlay.Enabled = True
        btnHi.Enabled = False
        btnLo.Enabled = False
        lblResult.Show()
        picRight.Show()
        picLeft.Show()
        intPlayer = getRdn()
        Select Case intPlayer
            Case 1
                picRight.Image = My.Resources._2H

            Case 2
                picRight.Image = My.Resources._3H

            Case 3
                picRight.Image = My.Resources._4H

            Case 4
                picRight.Image = My.Resources._5H

            Case 5
                picRight.Image = My.Resources._6H

            Case 6
                picRight.Image = My.Resources._7H

            Case 7
                picRight.Image = My.Resources._8H

            Case 8
                picRight.Image = My.Resources._9H

            Case 9
                picRight.Image = My.Resources._10H

            Case 10
                picRight.Image = My.Resources.JH

            Case 11
                picRight.Image = My.Resources.QH

            Case 12
                picRight.Image = My.Resources.KH

            Case 13
                picRight.Image = My.Resources.AH

                If ((intPlayer < intComputer)) Then

                    lblResult.Text = "Winner!"
                    intScore += 1
                    lblScore.Text = intScore.ToString
                Else
                    lblResult.Text = “Loser!"
                    intScore = 0
                    lblScore.Text = intScore.ToString

                End If


        End Select
    End Sub

End Class