现用commandbutton控件举例，其他控件一样：
1.首先声明两个API函数
//获得焦点
Function ulong SetCapture(ulong hWnd) Library "USER32.DLL"
//释放焦点
Function BOOLEAN ReleaseCapture() Library "USER32.DLL"
2.自定义用户事件鼠标在控件上移动mousemove(EventID号为pbm_mousemove)，鼠标进入控件mousewithin，鼠标离开控件mousewithout。
3.声明一些Instance变量
boolean ib_mousecaptured//控件是否已经获得焦点
boolean ib_mousewithin//鼠标是否进入控件
integer ii_losecapture=0//控件是否要失去焦点
4.在mousemove事件中写入
if ii_losecapture > 1 then
if not ib_mousecaptured then//没有捕获鼠标移动
//捕获鼠标移动
SetCapture(handle(this))
ib_mousecaptured = TRUE
else //已经捕获鼠标移动
if xpos < 0 or ypos < 0 or xpos > width or ypos > height then//鼠标不在该控件上
//释放鼠标
ReleaseCapture()
ib_mousecaptured = FALSE
//触发mousewithout事件
this.post event mousewithout()
ib_mousewithin=false
ii_losecapture=0
//this.of_set()
else
if not ib_mousewithin then
//触发mousewithin事件
this.post event mousewithin()
ib_mousewithin=true
end if
end if
end if
else
ii_losecapture=ii_losecapture + 1
end if
5.最后你就可以在mousewithin和mousewithout中写入你想要的效果或事件。
of_set()可能是重置某些值的操作，可以不用它，将它注释掉，一样可以实现诸如鼠标到达按钮时显示tips。
