Batalia2

I'm trying to write a vb.net program using random generation with rock paper scissor. I'm having problems writing the program. This is what I have so far. Can someone help me out with this. I need to use case structure to get it running and to play it 100 times automatically.

Dim random As New Random
Dim Rock, Paper, Scissor, P1, P2 As Integer

Rock = 1
Paper = 2
Scissor = 3

Select Case P1
Case 1
Select Case P2
Case 1

End Select

End Select