qxl584

封装成自定控件可以重复利用，这点就是面向对象的好处。
鼠标移上在VB6里本身有这个事件，怎么设置LABEL的字体样式就不说了。
鼠标离开在VB中可以用API函数：GetCursorPos和WindowFromPoint
在计时器事件里这样写
Private Sub Timer1_Timer()
    '获取鼠位置
    GetCursorPos MousePosition
    ’在当前鼠标位置查找控件名柄
    HwndHoverWindow = WindowFromPoint(MousePosition.X, MousePosition.Y)
    ‘判断两个是否为同一控件
    If label1.hwnd <> HwndHoverWindow Then
              '离开
     End If
End Sub