Paso 3: Cuando el juego comienza
Privada Sub Open_TwoPlayerForm(sender As System.Object, e As System.EventArgs) maneja Me.Activated End Sub
'Este es el código para lo que sucede cuando se abre la TwoPlayerForm'.
34. insertar después de código entre Private Sub y End Sub:
Vuelta DIM como nuevos al azar Si TurnResult = 1 Then Si TurnResult = 2 entonces
Dim TurnResult como entero = Turn.Next (1, 3)
PlayerTurnLabel.Text = "Vuelta de rojo"
End If
PlayerTurnLabel.Text = "Azul vuelta"
End If
'Elige al azar el jugador que va primero.'
OvalShape1.Visible = False
OvalShape2.Visible = False
OvalShape3.Visible = False
OvalShape4.Visible = False
OvalShape5.Visible = False
OvalShape6.Visible = False
OvalShape7.Visible = False
OvalShape8.Visible = False
OvalShape9.Visible = False
LineShape1.Visible = False
LineShape2.Visible = False
LineShape3.Visible = False
LineShape4.Visible = False
LineShape5.Visible = False
LineShape6.Visible = False
LineShape7.Visible = False
LineShape8.Visible = False
LineShape9.Visible = False
LineShape10.Visible = False
LineShape11.Visible = False
LineShape12.Visible = False
LineShape13.Visible = False
LineShape14.Visible = False
LineShape15.Visible = False
LineShape16.Visible = False
LineShape17.Visible = False
LineShape18.Visible = False
'Hace que todos los círculos y cruces Invisible.'