VB crea el código fuente del disyuntor

i = 0

Call Out(i)

End Sub

Sub Out(ByVal n As Integer)

Label1.Caption = "Durante el servicio del disyuntor, desconéctelo primero"

Caso 1

Label1.Caption = "Asegúrese de que el disyuntor Desconectado"

Caso 2

Label1.Caption = "Inicio del servicio"

Fin de la selección

Fin del sub