到这里，一个小巧灵活的消息广播引擎就完成了，它的使用范围很广，用起来也很方便，只需在工程中引入编译过的ActiveX部件，就可以直接调用SendMsg发送消息，可能在安装消息接收器（MsgClient）时会稍许有点麻烦，下面举一个简单的应用例子大致说明一下：
在设计Windows程序时，往往会感觉到程序的实际运行过程与你想象的相差甚远，调试时就非常希望看到程序运行时后台的一些情况。利用VB的单步执行或Debug命令，都会受到一些限制。利用消息广播引擎，制作一个通用的实时消息事件查看程序，就可以很好地解决这一问题。查看程序的主要工作就是捕捉一组事先定义好的消息事件，并将消息的内容显示在列表框内，可以只用一个窗体完成，大体样子如下：
Const MsgInfoID=101
Private WithEvents mClient As MsgClient
Private Sub Form_Load()
Set mClient = New MsgClient
MClient.minMsg= MsgInfoID
MClient.maxMsg= MsgInfoID
AddMsgClient mClient
End Sub
Private Sub Form_Unload(Cancel As Integer)
DelMsgClient mClient
End Sub
Private Sub mClient _RecMsg(ByVal msg As VbMsgSrv.VbMsg)
List1.AddItem msg.iTimeStr & Chr(9) & msg.iName & Chr(9) & msg.iDescription
End Sub
在被调试的程序中，为了调用方便，可以编写一个全局过程，象下面这个样子：
Const MsgInfoID=101
Public Sub MsgInfo(iName As String,iDes As String)
Dim msg As New MsgClient
With msg
.iName = iName
. iDescription = iDes
End With
SendMsg msg
End Sub
在程序的重点需要了解的环节插入MsgInfo过程，运行时信息就会在事件查看程序的窗 口中被显示出来。这种方法尤其适合调试多程序协作的软件系统。当软件系统正式交给用 户时，插入的MsgInfo过程也不一定要全部删掉，只要将实时查看变为写入日志文件，这 些运行时的信息也是日后软件维护的第一手资料。
责任编辑：虫虫
