凡是用过WINDOWSOFFICE的用户，都非常熟悉这种情况，把鼠标移到这个图标的按钮上，不一会儿在这图标的下方会显示一些简短的文字，说明这个图标按钮的作用。笔者在工作实践中，用VB实现了上述功能，同时为了使图标按钮更具动感，笔者将图标按钮设计成浮动式图标按钮，即当鼠标移到图标按钮上方时，按钮会自动下沉；鼠标一离开按钮上方时，按钮又会自动浮起来。
　　1.建立含有如下控件的窗体：
　　控件NAME
　　CAPTIONVISIBLEBEVELWIDTH
　　窗体BOTTON－DEMO浮动式图标按钮演示程序'程序窗口
　　3D命令按钮COMMAND3D11'作为按钮的阴影，大小与按钮一致
　　3D命令按钮COMMAND3D23'该按钮与阴影稍微错位叠加
　　标签LABEL1
　　FALSE'显示图标按钮作用的文字
　　2.定义两个整型变量，用来存储按钮左上角坐标。
　　（1）在目标文件列表（OBJECT）中选择GENERAL，在过程列表（PROC）中选择DECLARATIONS（声明），系统进入窗体级代码的定义窗口中。
　　输入下列定义：
　　Dimcomm2－x，comm2－yAsInteger
　　（2）双击窗体，进入窗体装入事件代码窗口：
　　SUBFORM－LOAD（）
　　COMM2－X＝COMMAND3D2.LEFT
　　COMM2－Y＝COMMAND3D2.TOP
　　COMMAND3D2.Picture＝LoadPicture（＂C：＼FPW26＼FOX.BMP）'装入图片
　　ENDSUB
　　3.当鼠标移到按钮上方时，使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影，所以在视觉上就有按钮往下沉的感觉，同时激活标签显示该图标按钮作用的文字。
　　双击图标按钮，进入命令按钮MOUSEMOVE事件代码窗口：
　　SubCommand3D2－MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
　　command3D2.Movecomm2－x＋9，comm2－y＋9
　　LABEL1.BorderStyle＝1
　　LABEL1.BACKCOLOR＝＆H0000FFFF＆'显示文字的标签框底色为黄色
　　LABEL1.Visible＝True
　　LABEL1.CAPTION＝“演示”
　　EndSub
　　4.当鼠标一离开按钮时，就将按钮固定在其原来位置上，就可造成按钮上浮的视觉效果，同时关闭标签变量的显示。
　　双击窗体，进入窗体MOUSEMOVE事件代码窗口：
　　SubForm－MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
　　command3D2.Movecomm2－x，comm2－y
　　LEABEL1.Visible＝False
　　EndSub
　　以上程序在ASTPIII＋4／66D上，中文WINDOWS3.2，VISUALBASIC3.0FORWINDOWS环境下运行通过。->