@killua: tui góp ý bạn 1 chỗ, hình như ở mấy trang đầu anh Bắc có nói rồi thì phải:
Private Sub Command1_Click()
On Error GoTo sendfalse
Dim BytesToSend() As Byte
Dim Buffer As Variant
BytesToSend(0) = &H4A
BytesToSend(1) = &H01
Buffer = BytesToSend()
MSComm1.Output = Buffer
Hoặc:
Private Sub Command1_Click()
Dim Buffer As Variant
Buffer = Text3.Text
MSComm1.Output = Buffer
Cái này có vẻ nhanh hơn... hổng biết đúng hông nữa
, hình như dữ liệu truyền đi phải là kiểu mảng hoặc ký tự thì phải... còn Variant là all type