Dim khoiluong As Double
_______________________________________________________________________
Private Sub Command1_Click()
Timer3.Enabled = True
Timer4.Enabled = True
End Sub
________________________________________________________________
Private Sub Command2_Click()
End
End Sub
__________________________________________________________________
Private Sub Form_Load()

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
MSComm1.InBufferSize = 1
MSComm1.PortOpen = True
Timer3.Enabled = False
Timer4.Enabled = FalseEnd Sub
_________________________________________________________________
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub
_________________________________________________________________