Programación VB, lectura de datos de báscula electrónica a través del puerto serie

Subcomando privado1.Click()

MSComm1.Output = Chr$（&H1B）+Chr$（&H70）

sleep(200);Agregar uno Retraso, esta función debe declararse al principio, busque en la red usted mismo

Text1.Text = MSComm1.Input

End Sub

; utilizar MSComm1_OnComm si los requisitos no son altos ().