如何样让Label控件象网页的连接一样有一种连接效果

怎么样让Label控件象网页的连接一样有一种连接效果
我的Label控件   申请会员  

点进去到申请会员的地址
Private   Sub   Label3_Click()
        OpenUrl   "http://www.fzpj.cn/MemberReg/register.aspx "
End   Sub

但是发现很死板   就向网页上的CLICK效果一样

怎么样
让Label控件象网页的连接一样有一种连接效果
就象QQ登陆的那个申请会员一样

[解决办法]
用label的MouseMove方法就可以，当鼠标移动到label的上面时，改变字体颜色，并改变鼠标指针状态就可以实现该效果了
[解决办法]
同时再设置你的字体为有下划线......