Codigo en visual basic

Option Explicit
Dim i As Long
Dim Tiempo As String
Dim cw As Integer
Dim ve As Integer
Dim f As Integer
Private Sub cmdDetener_Click()
Timer1.Interval = 0
CmdIniciar.Enabled = TrueLblAcierto.Caption = "0"
LblError.Caption = "0"
End Sub
Private Sub CmdIniciar_Click()
i = 0
Timer1.Interval = 0
Lblcronometro.Caption = ""
Timer1.Interval = 1
CmdIniciar.Enabled = FalseCmdTrasladar.Enabled = True
LblPregunta.Caption = "Si realmente te sientes listo da click en 'Trasladar'"
End Sub
Private Sub CmdTrasladar_Click()
Randomize
cw = Int(Rnd * 15)
If cw = 0 Then
cw = 0 + 1
EndIf
LblPregunta = cw
If Option1.Value = True Then
ve = ve + 1
LblAcierto.Caption = ve
Else
f = f + 1
LblError.Caption = f
End If
If Option1.Value = True Then
ve = ve + 1
LblAcierto.Caption= ve
Else
f = f + 1
LblError.Caption = f
End If
If Option1.Value = True Then
ve = ve + 1
LblAcierto.Caption = ve
Else
f = f + 1
LblError.Caption = f
End If
If Option1.Value = True Then
ve= ve + 1
LblError.Caption = ve
Else
f = f + 1
LblError.Caption = f
End If
End Sub
Private Sub LblPregunta_change()
If cw = 1 Then
LblPregunta = "Paciente de sexo masculino de 32 años deedad, labora en el campo arando la tierra, un jueves en la mañana se disponía para ir a la ciudad a conseguir elementos de su trabajo, se traslada en su moto sin ninguna medida de seguridad, alcanza unavelocidad de 80 Km/ h, al llegar a una curva decide adelantar un camión quien a su vez le impide visualizar el carril contrario y es cuando finalizando la curva observa que viene un vehículo a granvelocidad quien lo hace perder el control de su moto, Daniel cae y se desliza por el pavimento 4 metros aproximadamente ocasionándose grandes raspaduras y quemaduras de segundo grado en su cuerpo, sedetiene y queda en una zanja al costado de la vía, usted se encontraba cerca al sitio y acude atender a la víctima y lo encuentra en posición lateral izquierdo, consciente pero desorientado en tiempo y...