这是一款类似网页浏览器中的浮动工具栏风格的VB窗口提示特效，信息显示条控件测试，使用了Click事件。运行后在窗口的最上面你会看到提示文字。我们可以编写以下代码，实现对信息提示栏的控制： 　　PrivateSubbtnShow_Click() 　　'显示 　　ctlInfoBar.ShowInfotxtWhatToSay.Text,vbExclamation,chkAutoClose.Value=vbChecked,chkBlink.Value=vbChecked 　　EndSub 　　PrivateSubctlInfoBar_Click()