Yes, I know some programming languages! Code: Public Class Rock_Paper_Scissors Dim userselected As Integer Dim gameresult As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Random As New Random Dim computerchoice = Random.Next(3) If computerchoice = userselected Then gameresult = 0 Select Case computerchoice Case 0 If userselected = 1 Then gameresult = 2 If userselected = 2 Then gameresult = 1 Case 1 If userselected = 0 Then gameresult = 1 If userselected = 2 Then gameresult = 2 Case 2 If userselected = 0 Then gameresult = 2 If userselected = 1 Then gameresult = 1 End Select Select Case gameresult Case 0 Label1.Text = "Do it again!" Case 1 Label1.Text = "You lose" Case 2 Label1.Text = "You lucky!" End Select End Sub End Class
