Public Class Form1

    ' The current score for each player
    Dim plyr1Score As Integer = 0
    Dim plyr2Score As Integer = 0

    ' Number of games each player won
    Dim Won1 As Integer = 0
    Dim Won2 As Integer = 0

    ' Boolean variables for if each player busted or won
    Dim bust1 As Boolean = False
    Dim bust2 As Boolean = False
    Dim winner1 As Boolean = False
    Dim winner2 As Boolean = False

    ' Rectangle objects for each player
    Dim die1 As Rectangle = New Rectangle(100, 200, 100, 100)
    Dim die2 As Rectangle = New Rectangle(425, 200, 100, 100)

    ' Current die image for each player
    Dim player1Die As Image = My.Resources.die_face_1_T
    Dim player2Die As Image = My.Resources.die_face_1_T

    ' Current roll for each player
    Dim roll1 As Integer = 0
    Dim roll2 As Integer = 0

    Dim result As Integer

    Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.DrawImage(player1Die, die1)
        e.Graphics.DrawImage(player2Die, die2)

    End Sub

    Private Sub btnRoll_Click(sender As System.Object, e As System.EventArgs) Handles btnRoll.Click
        bust1 = False
        bust2 = False
        winner1 = False
        winner2 = False
        roll1 = Math.Floor(Rnd() * 6) + 1
        roll2 = Math.Floor(Rnd() * 6) + 1


        plyr1Score += roll1
        plyr2Score += roll2

        If plyr1Score = 21 Then
            winner1 = True
            lblWinner.Visible = True
            lblWon1.Text = Won1 + 1
            plyr1Score = 13
            lblBust1.Visible = False
        ElseIf plyr1Score > 21 Then
            lblBust1.Visible = True
            bust1 = True
            plyr1Score = 13
            lblWinner.Visible = False
        ElseIf plyr1Score = 0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 19 Or 20 Then
            lblWinner.Visible = False
            lblBust1.Visible = False
        End If

        If plyr2Score = 21 Then
            winner2 = True
            lblWinner2.Visible = True
            lblWon2.Text = Won2 + 1
            plyr2Score = 13
            lblBust.Visible = False
        ElseIf plyr2Score > 21 Then
            lblBust.Visible = True
            bust2 = True
            plyr2Score = 13
            lblWinner2.Visible = False
        ElseIf plyr2Score = 0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 19 Or 20 Then
            lblWinner2.Visible = False
            lblBust.Visible = False
        End If

        If result = 1 Then
            plyr1Score = plyr1Score + 1
            player1Die = My.Resources.die_face_1_T
            Me.Refresh()

        ElseIf result = 2 Then
            plyr1Score = plyr1Score + 2
        ElseIf result = 3 Then
            plyr1Score = plyr1Score + 3
        ElseIf result = 4 Then
            plyr1Score = plyr1Score + 4
        ElseIf result = 5 Then
            plyr1Score = plyr1Score + 5
        ElseIf result = 6 Then
            plyr1Score = plyr1Score + 6
        End If
        If result = 1 Then
            plyr2Score = plyr2Score + 1
        ElseIf result = 2 Then
            plyr2Score = plyr2Score + 2
        ElseIf result = 3 Then
            plyr2Score = plyr2Score + 3
        ElseIf result = 4 Then
            plyr2Score = plyr2Score + 4
        ElseIf result = 5 Then
            plyr2Score = plyr2Score + 5
        ElseIf result = 6 Then
            plyr2Score = plyr2Score + 6
        End If

        If roll1 = 1 Then
            player1Die = My.Resources.die_face_1_T
        ElseIf roll1 = 2 Then
            player1Die = My.Resources.die_face_2_T
        ElseIf roll1 = 3 Then
            player1Die = My.Resources.die_face_3_T
        ElseIf roll1 = 4 Then
            player1Die = My.Resources.die_face_4_T
        ElseIf roll1 = 5 Then
            player1Die = My.Resources.die_face_5_T
        ElseIf roll1 = 6 Then
            player1Die = My.Resources.die_face_6_T
        End If

        lblPlyr1Score.Text = Str(plyr1Score)
        lblPlyr2Score.Text = Str(plyr2Score)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub


End Class