Imports System

Public Module Module1

    Public Sub Main()

        do

            Dim r As New Random(1)

            Dim r2 As New Random(3)

             Dim rock as integer = 1

               Dim paper as integer = 2

                 Dim scissors as integer = 3

                    Dim choice as string

        Console.WriteLine("Enter Rock,Paper,and Scissor")

          choice = Console.ReadLine()

        If r.Equals(1) then rock = true

         If r.Equals(1) then Console.WriteLine("rock")

          If r.Equals(2) then paper = true 

           If r.Equals(2) = 2 then Console.WriteLine("paper")

            If r.Equals(3) = 3 then scissors = true 

             If r.Equals(3) then Console.WriteLine("scissors")

        If rock = true and choice = "scissors" then Console.Writeline("YOU LOST")

            If rock = true and choice  = "rock" then Console.Writeline("Draw")

                If rock and choice = "paper"then Console.Writeline("you win")   

                    If paper = true and choice = "rock" then Console.Writeline("YOU LOST") 

                        If paper = true and choice  = "paper" then Console.Writeline("Draw")

                            If paper = true and choice = "scissors" then Console.Writeline("you Win")

                                If scissors = true and choice = "rock" then Console.Writeline("you WIN")

                                    If scissors = true and choice = "paper" then Console.Writeline("YOU lost")          

                                        If scissors = true and choice = "scissors" then Console.Writeline("Draw") 

        loop 

    End Sub

End Module