去美留学费用:我不会用VB的联机传数据的控件(或其它),谁能教我怎么用?

com控件！！
实例：计算机拨号
在一些实际应用中经常需要使用计算机拨号。下面这个例子利用MSComm控件操作Modem进行拨号，实现串口通信。
实现步骤：
1.建窗体
●添加一个MSComm控件，用来建立与串口的连接；
●添加一个Text控件，Name属性为Txttel，用来输入电话号码；
●添加3个CommandButton控件，Name属性分别为DialButton、CancellButton、QuitButton，分别用来实现拨号、中止拨号、中止程序；
●添加一个Label控件，用来显示所有与拨号有关的信息。窗体见图1。
2．设置MSComm控件属性
●InBufferSize=1024；
●Inputlen=0；
●InputMode=0；
●Rthreshold=2；
●RTSEnable=True；
●Settings=“9600，N，8，1”；
●Sthreshold=0。
因为每一台计算机的串口使用状态都不会一样。为使程序具有通用性，在窗体的Load方法中首先进行串口测试，找到第一个可用串口后再进行设置。
3．程序功能
程序根据输入的电话号码进行拨号，Modem正常拨号后，提示用户摘机，准备通话。
图1 电话拨号实例
4．主要方法与事件代码
'设置可用串口
Private Sub Form_Load()
On Error GoTo error_open
For i = 1 To 4
MSComm1.CommPort = i ‘从后面向前面选择时不可取！
MSComm1.PortOpen = True
'设置可用的第一个串口
On Error GoTo 0
Exit Sub
error_resume:
Next
error_open:
Resume error_resume
End Sub
>>>>
Private Sub DialButton_Click()
Dim Number＄， Temp＄
Number＄ = Trim＄(Txttel.Text)
If Number＄ = “" Then
MsgBox “请输入电话号码"
Txttel.SetFocus
Exit Sub
End If
DialButton.Enabled = False
QuitButton.Enabled = False
DialString＄ =“ATDT”＋ Number＄ ＋ “;” ＋ vbCr
'清除接收缓冲区
MSComm1.InBufferCount =0
'拨电话号码
MSComm1.Output = DialString＄
Lblmessage.Caption = “正在拨号码 －”＋Number＄
DialButton.Enabled = True
QuitButton.Enabled = True
End Sub
>>>>
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
'读取串口数据
COMBUF=COMBUF ＋ MSComm1.Input
lc = InStr(1， COMBUF， “OK”)
If lc = 0 Then Exit Sub
'Modem已正常拨号，返回OK
Lblmessage.Caption = “请您摘下电话机，
准备通话”
Case comEvSend
End Select
End Sub
>>>>
Private Sub CancelButton_Click()
'断开与调制解调器的连接
MSComm1.Output = “ATH” ＋ vbCr
End Sub

使用winsock控件，可以用tcp或udp协议通信
具体的代码可以在网上搜