在VB（Visual Basic）中制作叫号程序，可以采用以下步骤：
设计程序架构
可以选择设计为服务端-客户端形式，通过Winsock控件进行通讯。
客户端收到服务端发来的消息后，驱动发声。
创建发声对象
使用`CreateObject（"sapi.spvoice"）`创建发声对象，然后调用`speak`方法发出声音。
实现叫号功能
可以通过键盘输入或单片机系统来触发叫号。
显示当前所叫号数，客户及时了解排队信息。
线程编程
由于系统需要同时处理叫号、显示、状态更新等多个任务，因此线程是必不可少的。
网络扩展
如果需要，可以将系统扩展为多终端版本，通过服务器进行通信，顾客到达服务窗口后，通过电子方式进行排队。
```vb
Function Speak(s As String)
Dim vos As Object
Set vos = CreateObject("sapi.spvoice")
vos.speak s
End Function
Sub CallNumber(number As String)
' 调用发声函数
Speak "请稍候，号码是 " & number
End Sub
```
在这个示例中，`Speak`函数用于创建发声对象并发出声音，`CallNumber`子程序用于调用发声函数并传递叫号信息。
建议
调试和测试：在实际应用中，需要对程序进行充分的调试和测试，确保声音播放的准确性和稳定性。
用户体验：可以考虑添加更多的用户界面元素，如LCD液晶显示器，以便客户更直观地了解排队信息。
网络稳定性：如果系统需要支持多终端，确保网络连接的稳定性，避免因网络问题导致的通讯故障。
