Visual Basic - Pasar señal a un relay

Buenas a todos.
Mediante un evento del sistema necesito mandar una señal a un relay que está montado en el paralelo para que abra una puerta por x cantidad de segundos.
Existe algún ocx o librería que me permita hacer eso? Hay algun código disponible?
Muchas gracias al que pueda pasarme alguna info

haber si te sirve este pequeño ejemplo
'Esto es de la forma
Option Explicit
Dim Value As Integer
Dim PortAddress As Integer
Private Sub cmdWriteToPort_Click()
'Write to a port.
Out PortAddress, Value
'Read back and display the result.
Text1.Text = Inp(PortAddress)
Value = Value + 1
If Value = 255 Then Value = 0
End Sub
Private Sub Form_Load()
'Test program for inpout32.dll
Value = 0
'Change PortAddress to match the port address to write to:
'(Usual parallel-port addresses are &h378, &h278, &h3BC)
PortAddress = &H378
End Sub

'esto es del modulo, la libreria te la mando por correo

'Inp and Out declarations for direct port I/O
'in 32-bit Visual Basic 4 programs.

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Necesitas esa dll o la IO.dll, eso es para que ellas rompan los privilegio para los puertos y no te enloquezcas con código para romperlos