VB6.0 为无标题的窗体添加鼠标效果，Rect返回当前窗口位置，Point返回当前鼠标位置，本代码主要是使用case语句来实现，可练习一下case语句的用法哦，分享代码： 　　Dim Point As POINTAPI 　　Call GetWindowRect(Me.hwnd, Rect) 'Rect返回当前窗口位置 　　Call GetCursorPos(Point) 'Point返回当前鼠标位置 　　Select Case True 　　Case Point.X < Rect.Left 5 And Point.Y < Rect.Top 5 '鼠标位于窗体左上方