Hola:
Me salen 0s pero mejor lo cambié por esto:
Private Sub Command1_Click()
Timer1.Enabled = True 'Activo el Timer para visualizar el OutBufferCount
Timer1.Interval = 1 'Intervalo: 1mS
MSComm1.Output = Text8.Text 'Envio el contenido de Text8 por el Puerto
End Sub
Private Sub Timer1_Timer()
Label8.Caption = MSComm1.OutBufferCount 'Muestra el OutBufferCount en el Label8
If MSComm1.OutBufferCount = 0 Then 'Si OutBufferCount = 0 detiene el Timer1
Timer1.Enabled = False
End If
End Sub
Con esto al menos se ve decremento siempre que hayan bastantes datos a enviar y a una baja velocidad, y eso ya que el decremento se ve asi:
100, 74, 61, 35, 27, 0
... algo asi se muestra, buno es mejor que nada. Gracias PalitroqueZ.
Javicho.