Codigo de fuente en visual basic de los comandos que activan y desactivan las distintas salidas

Dim VALORPUERTO As Integer


Private Sub LUZ1_Click()
VALORPUERTO = VALORPUERTO + 1
Out &H378, VALORPUERTO
End Sub

Private Sub OFF1_Click()
VALORPUERTO = VALORPUERTO - 1
Out &H378, VALORPUERTO
End Sub

Private Sub PRENDETODO_Click()
VALORPUERTO = 255
Out &H378, VALORPUERTO
End Sub

Private Sub APAGARTODO_Click()
VALORPUERTO = 0
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ2_Click()
VALORPUERTO = VALORPUERTO + 2
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ3_Click()
VALORPUERTO = VALORPUERTO + 4
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ4_Click()
VALORPUERTO = VALORPUERTO + 8
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ5_Click()
VALORPUERTO = VALORPUERTO + 16
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ6_Click()
VALORPUERTO = VALORPUERTO + 32
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ7_Click()
VALORPUERTO = VALORPUERTO + 64
Out &H378, VALORPUERTO
End Sub

Private Sub LUZ8_Click()
VALORPUERTO = VALORPUERTO + 128
Out &H378, VALORPUERTO
End Sub

-Este es el codigo fuente que utilizamos para activar y dasactivar las distintas entradas y salidas.