Encender y apagar un relevador con VB6 y puerto LTP

Bueno saludos a todos en esta ocasión traemos una aplicación del tutorial: Control Puerto Paralelo con Visual Basic 6.0 (Podrás encontrar la información en el blog), en este se verá el control de un relevador por medio de este puerto, además se realizo un archivo ejecutable con dos botones esto para controlar el encendido y apagado del Relevador.

Es necesario mencionar que se debe tener mucho cuidado al trabajar con el puerto LTP ya que se puede dañar si no se utiliza correctamente, recomiendo utilizar una etapa de acoplamiento a la salida del puerto, esto se puede lograr con optoacopladores o con arreglos de transistores. En lo personal yo utilizaría optoacopladores, pero en este ejemplo se utiliza un transistor 2N2222.

Aquí el circuito: