程序代码

　　Dim connectSum As Integer ′连接终端总数
　　Private Sub CMDadd_Click()
　　′添加一个终端
　　 If CMBcomputer.Text 〈〉 ″″ Then
　　 CMBcomputer.AddItem CMBcomputer.Text
　　 CHKcomputer(connectSum).Visible = True
　　 CHKcomputer(connectSum).Caption = CMBcomputer.Text
　　 connectSum = connectSum ＋ 1
　　 CMBcomputer.Text = ″″
　　 End If
　　 End Sub
　　Private Sub CMDdelete—Click()
　　′删除某一已连接终端
　　 If CMBcomputer.Text 〈〉 ″″ Then
　　 For i = 0 To connectSum － 1
　　′删除该终端的选项按钮
　　 If CHKcomputer(i).Caption = CMBcomputer.Text Then For j = i ＋ 1 To connectSum － 1
　　 CHKcomputer(j － 1).Caption = CHKcomputer(j).Caption
　　 Next CHKcomputer(connectSum － 1).Visible = False
　　 Exit For End If Next
　　 connectSum = connectSum － 1
　　′重置已连接终端列表
　　 CMBcomputer.Clear
　　 For i = 0 To connectSum － 1
　　 CMBcomputer.AddItem CHKcomputer(i).Caption
　　 Next End If
　　End Sub
　　Private Sub Form—Load()
　　 For i = 0 To 13 ′可连接终端计算机数由读者自定
　　 CHKcomputer(i).Caption = ″″
　　 CHKcomputer(i).Visible = False
　　 Next
　　′重点:必须将 RemoteHost 的值修改为计算机的名字。
　　 With SCKudpPeer
　　 .RemotePort = 3000 ′连接的端口号。
　　 .Bind 3000 ′绑定到本地的端口。