Rock Paper Scissors HELP.

Alright, so I'm trying to make a basic game, but I can't seem to get it right. Can you guys please take a quick peak through this code, and spot my error, or tell me what I need to add?

Here's the code for the game so far:

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const intRock As Integer = 1
        Const intPaper As Integer = 2
        Const intScissors As Integer = 3
        Dim intComputerThrows As Integer
        Static intPlayerWins As Integer = 0
        Static intComputerWins As Integer = 0
        Static intNumDraws As Integer = 0

        intPlayerWins = Val(Me.lblPlayerWins.Text)
        intComputerWins = Val(Me.lblComputerWins.Text)
        intNumDraws = Val(Me.lblNumDraws.Text)


        If Me.radRock.Checked And intComputerThrows = intRock Then
            Me.lblWinner.Text = "Computer throws Rock, so it's a draw!"
            intNumDraws = intNumDraws + 1
        ElseIf Me.radRock.Checked And intComputerThrows = intPaper Then
            Me.lblWinner.Text = "Computer throws Paper, so the computer wins!"
            intComputerWins = intComputerWins + 1
        ElseIf Me.radRock.Checked And intComputerThrows = intScissors Then
            Me.lblWinner.Text = "Computer throws Scissors, so you win!"
            intPlayerWins = intPlayerWins + 1
        End If

        If Me.radPaper.Checked And intComputerThrows = intRock Then
            Me.lblWinner.text = "Computer throws Rock, so you win!"
            intPlayerWins = intPlayerWins + 1
        ElseIf Me.radPaper.Checked And intComputerThrows = intPaper Then
            Me.lblWinner.text = "Computer throws Paper, so it's a draw!"
            intNumDraws = intNumDraws + 1
        ElseIf Me.radPaper.Checked And intComputerThrows = intScissors Then
            Me.lblwinner.text = "Computer throws Scissors, so the computer wins!"
        End If

        If radScissors.Checked And intComputerThrows = intRock Then
            Me.lblWinner.Text = "Computer throws Rock, so the computer wins!"
            intComputerWins = intComputerWins + 1
        ElseIf radScissors.Checked And intComputerThrows = intPaper Then
            Me.lblWinner.Text = "Computer throws Paper, so you win!"
            intComputerWins = intComputerWins + 1
        ElseIf radScissors.Checked And intComputerThrows = intScissors Then
            Me.lblWinner.Text = "Computer throws Scissors, so it's a draw!"
            intNumDraws = intNumDraws + 1
        End If
    End Sub

---

Never mind, I fixed it. All I needed to add was:

Code:

---

        Randomize()
        intComputerThrows = Int(3 * Rnd() + 1)

---

Thanks anyways. <3

Btw, all those Me's are redundant. You don't need them.

This is the C/C++ forum, please post this in the VB forum.