Deberías explicar que es lo que has hecho, que es lo que tienes enchufado al puerto, poner el programa que ahs hecho etc.. si no das detalles va a ser difícil que te digan que es lo que puede fallar.

Bueno bien la idea es la siguiente:

En la programacion utilizo el control Timer de la barra de herramientas
entonces al atributo INTERVAL le pongo 1 osea que va a realizar la sentencia puesta, espera 1miliseg y lo va a repetir.(En teoria)

Dim cont As Integer
Dim a As Integer
Dim b As Integer

Private Sub Timer1_Timer()
cont = cont + 1
If cont = 1 Then
a = 1
Else
a = 0
If cont = b Then ''b= a los mseg hasta que vuelva a tener un 1
cont = 0
End If
End If
salida.Text = a
Call Out(&H378, a) 'lo envía al puerto de datos
Text2.Text = cont
End Sub

A la salida del puerto de datos, del puerto paralelo por el pin 2 necesito tener una onda cuadrada la cual pueda variar la frecuencia y el ancho de pulso.(en este caso solo vario la frecuencia y el ancho de pulso en alta es de 1 mseg, EN TEORIA)

A la salida del pin 2 utilizaria un buffer para adapatar impedancia y no dañar el puerto paralelo y lo conectaria mediante un circuito que todavia no diseñe pero que va a tener un mosfet para controlar por medio de una fuente auxiliar al motor en cuestion.

Se entiende???

Gracias a todos por la velocidad para contestar!!!
No se usar un pic, si no puedo solucionarlo con visual, tendre que aprender!!!

sergioie, con un optoacoplador te vale. estas mandando 1ms a 50 hz?

Yo de basic ni idea pero seguro que alguien sabe decirte, que por aquí se usa.

si