Ayuda control servomotor puerto paralelo

[sokoloko]

Hola,

Estoy haciendo un programa para controlar servomotores, y necesito que envie por el puerto paralelo impulsos de entre 0,5 y 2,5 milisegundos, y la propiedad interval del timer no me deja usar valores decimales.

En concreto necesito enviar un impulso de 20 milisg y otro de entre 0,5 y 2,5 milisg (max y min giro) y esto en bucle infinito. Pero el programa de prueba con 1ms no me mueve el servo.

Para probar conecto el servo a 5v y la señal de control la meto a traves de un 547, con masas comunes entre puerto paralelo y alimentacion del servo.

Pego el codigo por si alguien puede ayudarme

Private Sub Form_Load()
Tiempo.Text = HScroll1.Value
TEMP_ESPERA.Interval = 20 'espera de 20 ms
TEMP_PULSO.Interval = (Tiempo.Text) ' * 1000
Comenzar.Enabled = True
Detener.Enabled = False
Motor1.BackColor = &H0
End Sub
Private Sub TEMP_ESPERA_Timer()

'espera y despues del interval ejecuta la acción.

Motor1.BackColor = &HFF00&
Out Val("&H" + "378"), Val(10)
TEMP_ESPERA.Enabled = False
TEMP_PULSO.Enabled = True

End Sub
Private Sub TEMP_PULSO_Timer()

'espera y despues del interval ejecuta la acción.

Motor1.BackColor = &HFF&
Out Val("&H" + "378"), Val(0)
TEMP_PULSO.Enabled = False
TEMP_ESPERA.Enabled = True
End Sub
Private Sub Comenzar_Click()
TEMP_ESPERA.Enabled = True
Comenzar.Enabled = False
Detener.Enabled = True
End Sub
Private Sub Detener_Click()
Detener.Enabled = False
Comenzar.Enabled = True
TEMP_ESPERA.Enabled = False
TEMP_PULSO.Enabled = False
Motor1.BackColor = &H0
End Sub
Private Sub HScroll1_Change()
Tiempo.Text = HScroll1.Value
TEMP_PULSO.Interval = (Tiempo.Text) ' *1000
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub

Saludos y gracias.