Dim P1 As Integer, P2 As Integer
Dim RPS(3) As Integer
Dim Winner As Integer
Dim x As Integer

Enum RPS
	Rock = 0,
	Paper,
	Scissors
End Enum

RPS(0) = "Rock"
RPS(1) = "Paper"
RPS(2) = "Scissors"

Randomize

For x = 1 To 100
	P1 = Int(3 * Rnd)
	P2 = Int(3 * Rnd)
	
	Select Case P1
		Case Rock
			Select Case P2
				Case Rock
					Winner = 0
				Case Paper
					Winner = 2
				Case Scissors
					Winner = 1
			End Select
		Case Paper
			Select Case P2
				Case Rock
					Winner = 1
				Case Paper
					Winner = 0
				Case Scissors
					Winner = 2
			End Select
		Case Scissors
			Select Case P2
				Case Rock
					Winner = 2
				Case Paper
					Winner = 1
				Case Scissors
					Winner = 0
			End Select
	End Select
	
	lstP1.Items.Add RPS(P1)
	lstP2.Items.Add RPS(P2)
	lstWinner.Items.Add "Player " & Winner
Next x