[phuocxin]

ở vb bạn phải viết là
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim DataToSend As String
datatosend="a"
MSComm1.Output = DataToSend
End Sub