怎样用VB6发一个零~65535的数给单片机接收

怎样用VB6发一个0~65535的数给单片机接收
大家好：
我想在VB上计算，并把计算出来的结果（0-65535）下传到51单片机上面，我想问一下，vb的这个通信程序怎样写？大家可不可以给我推荐一个比较好的串口通信源程序，给我学习学习一下，
                                                                                                                                                                      谢谢
------解决方案--------------------
调用MSCOMM控件

MSComm 控件示例

下面这个简单的例子演示了用调制解调器进行基本的串行通讯：


Private Sub Form_Load ()

   ' 保存输入子串的缓冲区

   Dim Instring As String

   ' 使用 COM1。

   MSComm1.CommPort = 1

   ' 9600 波特，无奇偶校验，8 位数据，一个停止位。

   MSComm1.Settings = "9600,N,8,1"

   ' 当输入占用时，

   ' 告诉控件读入整个缓冲区。

   MSComm1.InputLen = 0

   ' 打开端口。

   MSComm1.PortOpen = True

   ' 将 attention 命令送到调制解调器。

   MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保

   ' 调制解调器以"OK"响应。

   ' 等待数据返回到串行端口。

   Do

      DoEvents

   Buffer$ = Buffer$ & MSComm1.Input

   Loop Until InStr(Buffer$, "OK" & vbCRLF)

   ' 从串行端口读 "OK" 响应。


   ' 关闭串行端口。

   MSComm1.PortOpen = False

End Sub


注意   MSComm 控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。