VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "task"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' **********************************************************************
'  描  述：vb 實現(xiàn)qq的可以拖隱藏到屏幕四邊的效果的控件
'  Play78.com : 網(wǎng)站導(dǎo)航，源碼之家，絕對開源
'  海闊天空編寫,有問題請上www.paly78.com 提
'  網(wǎng)址：http://www.play78.com/
'  QQ：13355575
'  e-mail:hglai@eyou.com
'  開發(fā)時間:2005-7-3
' **********************************************************************
Private WithEvents taskform As Form
Attribute taskform.VB_VarHelpID = -1
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Public Sub SetForm(frm As Object)
Set taskform = frm
End Sub
Private Sub TaskForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim MouseOver As Boolean
    
    MouseOver = (0 <= X) And (X <= taskform.Width) And (0 <= Y) And (Y <= taskform.Height)
    If MouseOver Then
        SetCapture taskform.hWnd
        'command1.BackColor = RGB(141, 150, 206)
        taskform.label1.Caption = "鼠標(biāo)移進"
    Else
        'command1.BackColor = &H80000004
        taskform.label1.Caption = "鼠標(biāo)移出"
        ReleaseCapture
    End If
End Sub