部件菜单，加入Microsoft Winsock Control 5.0及Microsoft Rich TextBox Control 5.0这两个控件到工具栏中。
将Form1改名为fMud，从工具栏拖一个CommandButton到fMud上，改名叫cmdSend，设置其default属性为True。拖一个Rich TextBox到fMud上，改名叫MudOut，设置其Text属性为空，ScrollBars为rtfBoth。再拖一个ComboBox到fMud上，改名叫MudIn，设置Text属性为空。最后拖一个Winsock控件到fMud上，改名叫MudSock。.下一步是用菜单编辑器给fMud做一个菜单，其中有一个子菜单起名叫Connect，主窗口就做好了。
下面向工程里添加一个新Form，改名叫fConnect，用于接收用户要联往的MUD主机地址及端口。首先在上面放两个Label，分别把Caption设为"MUD地址：" 和 "端口："，再放两个TextBox分别起名叫tAddress和tPort,摆好位置，使两个Label分别指向两个TextBox,最后放一个CommandButton，使其Name=CmdConnect，Caption="&Connect"，Default=True，Enabled=False。好了，下面开始编程：
fMud窗口：
fMud的定义部分：
Dim bConnected as Boolean
Connect菜单：
If Not bConnected Then
fConnect.Show 1
MudSock.Connect '连接到MUD主机上
bConnected = True
MudIn.SetFocus
End If
fMud的Load事件：
bConnected = False
fMud的Resize事件：
MudOut.Top = 0 '调整控件的位置就大小
MudOut.Left = 0
MudOut.Width = fMud.Width - 120
MudOut.Height = fMud.Height - 700
MudIn.Top = MudOut.Height+20
MudIn.Left = 0
MudOut.Width = fMud.Width - 120
MudSock的DataArrival事件：
Dim strData As String
If Connected Then
MudSock.GetData strData '从MudSock的缓冲区中取数据
MudOut.Text = MudOut.Text+strData
MudOut.SelStart = len (MudOut.Text)
If len(MudOut.Text) > 2000 Then '缓冲2000字的文本
MudOut.Text = Right (MudOut.Text,2000)
End If
Ene If
cmdSend的Click事件：
Dim s As String
Dim i As Integer
s = MudIn.Text + Chr(13) & Chr(10) '给命令行加上回车换行
fMud.MudSock.SendData s
For i = 1 To MudIn.ListCount
If MudIn.List(i) = MudIn.Text Then
MudIn.RemoveItem (i) '删去重复的历史命令
End If
Next i
If MudIn.ListCount > 30 Then '缓冲30条历史命令
MudIn.RemoveItem 0
End If
MudIn.AddItem MudIn.Text '将本条命令加到历史记录最后
MudIn.SelStart = 0
MudIn.SelLength = Len(MudIn.Text) '本条命令文本被选择，以便下
'输入一条命令时，不用擦除便可直接键入
fConnect窗口：
tAddress和fPort的Change事件：
If (tAddress.Text <> "") And (tPort.Text <> "") Then
CmdConnect.Enabled = True
Else
CmdConnect.Enabled = False
End If
Connect按钮的Click事件：
fMud.MudSock.RemoteHost = tAddress.Text
fMud.MudSock.RemotePort = CInt(tPort.Text)
fConnect.Hide
好了，一个MUD客户端服务程序就做好了，你现在已经可以用它连接到MUD了。不过限于篇幅，现在本程序的功能只有输出信息回卷，分开输入输出和重用历史命令，它已比telnet玩MUD好用了。另外，要支持强调显示功能，只需从MUD主机传来的信息串中识别出escape'['控制串，并用RichTextBox的SelColor方法就可以设置文本颜色，这也是我们一开始为什么用RichTextBox而不用一般的TextBox的原因。最后指出，WinSock的Connect连接是否正确应在MudSock的onError事件中编程，本程序略去。
……
