在微軟的很多軟件（如WORD）的工具欄中，都采用一種浮動按紐，即正常情況下按紐的圖標呈灰色，當鼠標移動到某一按紐時，該按紐自動向上凸起且變為彩色，並在按紐的右下方有一標簽提示該按紐的功能，鼠標移開後又自動還原，這種按紐用VB實現時，方法如下：
1.先用繪圖工具作出按紐圖標後存盤（如1.bmp），再用圖象處理軟件將該圖標轉換為灰度圖或浮雕圖後再存盤（如2.bmp）。
2.運行VB，建立一新窗體（如form1）。
3.在窗體上需要建立按紐的位置處建立一圖片框（如image1），其大小和圖標相同，並將其picture屬性設為2.bmp。
4.在image1周圍建立由四個長度相同的line控件（如line1~4）組成的方框，方框要比image1控件稍大，否則達不到預計效果，將上面和左邊的顏色設成白色，下面和右邊的設成黑色，並將四個line控件的visible屬性都設成false。
5.在程序中加入以下內容即可：
PrivateSubImage1_MouseMove(BottonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image1.Picture=LoadPicture("c:1.bmp")
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
EndSub
PrivateSubForm1_MouseMove(BottonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Image1.Picture=LoadPicture("c:2.bmp")
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line3.Visible=False
EndSub->
