请问:怎么使用MSCOM控件的软件握手功能(是不是只需设置属性handshaking为comxonxoff就可以了)

请教:如何使用MSCOM控件的软件握手功能(是不是只需设置属性handshaking为comxonxoff就可以了)
假设需要将文本框中的很多字符串用串口发送出去,是不是只需设置handshaking为comxonxoff就可以了,
其源代码如下: 

Private Sub Command1_Click()
Dim slen&, buf1$, i&, t&
buf1 = Trim(Text1.Text)
slen = Len(buf1) ‘取得待发送字符串的长度
For i = 1 To slen ’采用循环发送
Comm1.Output = Mid$(buf1, i, 1)
t = 0  
Do ‘发送一个字符延时一段时间
t = t + 1
Loop Until t > 1000000
Next i
End Sub

请高手指教,谢谢了!

------解决方案--------------------
不用这么麻烦,你整个给它就行了
Comm1.Output = buf1