1.建立含有如下控件的窗體：
控件 NAME
CAPTION VISIBLE BEVELWIDTH
窗體 BOTTON－DEMO浮動式圖標按鈕演示程序 ’程序窗口
3D命令按鈕 COMMAND3D1 1’作為按鈕的陰影，大小與按鈕一致
3D命令按鈕 COMMAND3D2 3’該按鈕與陰影稍微錯位疊加
標簽 LABEL1
FALSE ’顯示圖標按鈕作用的文字

2.定義兩個整型變量，用來存儲按鈕左上角坐標。
（1）在目標文件列表（OBJECT）中選擇GENERAL，在過程列表（PROC）中選擇DECLARATIONS（聲明），系統進入窗體級代碼的定義窗口中。
輸入下列定義：
Dim comm2－x，comm2－y As Integer
（2）雙擊窗體，進入窗體裝入事件代碼窗口：
SUB FORM－LOAD （）
COMM2－X＝COMMAND3D2.LEFT
COMM2－Y＝COMMAND3D2.TOP
COMMAND3D2.Picture＝LoadPicture（C：＼FPW26＼FOX.BMP）’裝入圖片
END SUB

3.當鼠標移到按鈕上方時，使用MOVE將按鈕固定放在其原來位置的右下方。由于事先已繪制好按鈕的陰影，所以在視覺上就有按鈕往下沉的感覺，同時激活標簽顯示該圖標按鈕作用的文字。
雙擊圖標按鈕，進入命令按鈕MOUSEMOVE事件代碼窗口：
Sub Command3D2－MouseMove （Button As Integer，Shift As Integer，X As Single，Y As Single）
command3D2.Move comm2－x＋9，comm2－y＋9
LABEL1.BorderStyle＝1
LABEL1.BACKCOLOR＝＆H0000FFFF＆ ’ 顯示文字的標簽框底色為黃色
LABEL1.Visible＝True
LABEL1.CAPTION＝“演示”
End Sub

4.當鼠標一離開按鈕時，就將按鈕固定在其原來位置上，就可造成按鈕上浮的視覺效果，同時關閉標簽變量的顯示。
雙擊窗體，進入窗體MOUSEMOVE事件代碼窗口：
Sub Form－MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）
command3D2.Move comm2－x，comm2－y
LEABEL1.Visible＝False
End Sub
以上程序在AST PIII＋4／66D上，中文WINDOWS 3 琕ISUAL BASIC 3.0 FOR WINDOWS環境下運行通過。