编写一个浮动按钮控件（如何给控件添加MouseOut事件）

　　'lblCtlFloatButton.ctl 文件内容如下
VERSION 5.00
Begin VB.UserControl lblCtlFloatButton
ClientHeight = 405
ClientLeft = 0
ClientTop = 0
ClientWidth = 1965
ScaleHeight = 405
ScaleWidth = 1965
Begin VB.Label lblCaption
AutoSize = -1 'True
Height = 195
Index = 0
Left = 480
TabIndex = 1
Top = 120
Width = 45
End
Begin VB.Line Line1
BorderColor =