¿Cómo programar un juego de adivinanzas usando VB?

Subcomando privado1_Click()

Cls

Si Opción1.Value = Verdadero Entonces usuario = 1

Si Opción2.Value = Verdadero Entonces usuario = 2

Si Option2.Value = True Entonces usuario = 3

Aleatorizar temporizador

computadora = Int(Rnd * 3 + 1)

Si computadora = 1 Entonces Label3.Caption = "Tijeras"

Si computadora = 2 Entonces Label3.Caption = "Piedra"

Si computadora = 3 Entonces Label3.Caption = "tela"

a = usuario - computadora

Si a = 0 entonces imprime "平"

Si a = -1 o a = 2 entonces imprime "Pérdida"

Si a = 1 o a = -2, entonces imprima "Win"

Fin Sub

Sub privado Form_Load()

Label1.Caption = "Usuario"

Label2.Caption = "Computadora"

Option1.Caption = "Tijeras"

Option2.Caption = "Piedra "

Option3.Caption = "tela"

Fin Sub