Public Class Form1
    Dim Myturn As Integer
    Dim Computerturn As Integer
    Dim Dice1 As New Random
    Dim Dice2 As New Random
    Dim Die1 As Integer
    Dim Die2 As Integer
    Dim Mycount As Integer = 0
    Dim Computercount As Integer = 0
    Dim Rollagain As Integer
    Dim ComRoll As New Random
    Dim ComRoll2 As Integer

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xTurn.TextChanged
        Myturn = Val(xTurn.Text)
        If Myturn = 1 Then Myroll()
        If Myturn = 0 Then Computersroll()

    End Sub

    Private Sub Myroll()
        Die1 = Dice1.Next(1, 7)
        Die2 = Dice2.Next(1, 7)

        If Die1 = 1 And Die2 = 1 Then
            Mycount = 0
            Call Computersroll()

        End If
        If Die1 = 1 Or Die2 = 1 Then
            Call Computersroll()

        End If
        Mycount = Mycount + Die1 + Die2
        xUsersscore.Text = Mycount

        If Mycount >= 100 Then xWinner.Text = "You Win"


        If Mycount < 100 Then Prompt = "Enter 1 for user to roll again or 0 for computer to roll"

        Rollagain = Val(Answer)
        Rollagain = Val(xRollagain.Text)
        If Rollagain = 1 Then Myroll()
        If Rollagain = 0 Then Computersroll()




    End Sub
    Private Sub Computersroll()
        Die1 = Dice1.Next(1, 7)
        Die2 = Dice2.Next(1, 7)

        If Die1 = 1 And Die2 = 1 Then
            Computercount = 0
            Call Myroll()
            If Die1 = 1 Or Die2 = 1 Then
                Call Myroll()

            End If
            Computercount = Die1 + Die2
            xComputersscore.Text = Computercount

            If Computercount >= 100 Then xWinner.Text = "Computer Wins"

            If Computercount < 100 Then
                ComRoll2 = ComRoll.Next(0, 2)
                If ComRoll2 = 1 Then Myroll()
                If ComRoll2 = 0 Then Computersroll()

            End If
            
            
        End If

    End Sub
   
End Class

Public Class Form1
  Dim RndNumb As New Random
  Dim Die1 As Integer
  Dim Die2 As Integer
  Dim Mycount As Integer = 0
  Dim Computercount As Integer = 0
  Dim Rollagain As Integer
  Dim ComRoll2 As Integer

  Private Sub RollDice()
    Die1 = RndNumb.Next(1, 7)
    Die2 = RndNumb.Next(1, 7)
    xDie1.Text = Die1
    xDie2.Text = Die2
  End Sub

  Private Sub Myroll()
    RollDice()
    If Die1 = 1 And Die2 = 1 Then      'If I rolled double 1's then
      Mycount = 0                      '  Reset my score
      btnComputerRoll.Enabled = True   '  Only enable computers button
    Else
      Mycount += Die1 + Die2
      If Mycount >= 100 Then
        xWinner.Text = "You Win"
        pnlPlayAgain.Show()            '  Show the play Again and Quit buttons 
      Else                             'Player gets to roll again, if he want's
        EnableRollButtons()            'Enable both buttons so player can choose to roll again or pass to the computer
      End If
    End If
    xUsersscore.Text = Mycount         'Update the score readout
  End Sub

  Private Sub Computersroll()
    RollDice()

    If Die1 = 1 And Die2 = 1 Then
      Computercount = 0              'Reset the computer's score
      EnableRollButtons()            'Enable both buttons so player can choose to roll again or pass to the computer

    Else                             'Didn't roll double ones, so computer gets to choose to roll again or have the user roll
      Computercount += Die1 + Die2
      If Computercount >= 100 Then
        xWinner.Text = "Computer Wins"
        pnlPlayAgain.Show()               '  Show the play Again and Quit buttons 
      Else                                'Computer gets to roll again, if he want's
        ComRoll2 = RndNumb.Next(0, 2)     'Make a choice
        If ComRoll2 = 1 Then              'If the player has to roll
          BtnHumanRoll.Enabled = True     '  Force the player to roll (don't enable the computer button)
        Else                              'Else
          btnComputerRoll.Enabled = True  '  Only allow the computer to roll
        End If
      End If
    End If
    xComputersscore.Text = Computercount  'Update the score readout

  End Sub

  Private Sub DisableRollButtons()
    BtnHumanRoll.Enabled = False
    btnComputerRoll.Enabled = False
  End Sub

  Private Sub EnableRollButtons()
    BtnHumanRoll.Enabled = True
    btnComputerRoll.Enabled = True
  End Sub

  Private Sub BtnHumanRoll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHumanRoll.Click
    DisableRollButtons()
    Myroll()
  End Sub

  Private Sub btnComputerRoll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnComputerRoll.Click
    DisableRollButtons()
    Computersroll()
  End Sub

  Private Sub btnPlayAgain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayAgain.Click
    pnlPlayAgain.Hide()
    Mycount = 0
    Computercount = 0
    xUsersscore.Text = 0
    xComputersscore.Text = 0
    xDie1.Text = ""
    xDie2.Text = ""
    xWinner.Text = ""
    EnableRollButtons()
  End Sub

  Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
    Me.Close()
  End Sub
End Class