主题：如何在共有窗口的页面侧出现信息提示

项目内有共有窗口。窗口内有审批页面。打开项目，希望有未审批的内容时，页面右侧能自动出现提示，“*项待审批！”。代码怎么写？请老师指点。

 Dim count As Integer = DataTables("表A").Compute("count(_Identify)", "审批 = false")

 msgbox(count)

 

具体，做实例发上来看看。