关于vb的串行通信,该怎么处理

关于vb的串行通信
近期做一个vb的串行通信设计，但是对这一写不是太了解。不知道哪位能给一些代码参考一下？
另外，能不能在一台电脑上实现串行通信？怎么设置？
谢谢

[解决办法]
在一台电脑上调试,最好有2个串口,如果仅一个,只能将该RS232用母头把2-3短接,自己发自己收.

VB code

Option Explicit    Dim sj As StringPrivate Sub Command1_Click()    mscomm1.output = "近期做一个vb的串行通信设计"End SubPrivate Sub Form_Load()    mscomm1.Settings = "9600,n,8,1"    mscomm1.InputMode = comInputModeText    mscomm1.RThreshold = 1 '当接收缓冲区到达1-8字节产生1次OnComm事件    mscomm1.CommPort = 1    mscomm1.PortOpen = TrueEnd SubPrivate Sub MSComm1_OnComm()    Select Case mscomm1.CommEvent        Case 2        sj = sj & mscomm1.Input        Text1 = Mid(sj, 2, 4)    End SelectEnd Sub