VB如何做到鼠标移动到窗体上 窗体从屏幕右边向左展开出现？

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32 " (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Type RECT
    Left   As Long
    Top   As Long
    Right   As Long
    Bottom   As Long
End Type

Dim showLargeFrm As Boolean

Dim smlWidth, lgWidth As Integer


Private Sub Form_Load()

smlWidth = 500
lgWidth = 7000
Timer1.Enabled = True
Timer1.Interval = 100

Form1.Width = 500
showLargeFrm = False
End Sub




Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Width = 7000
showLargeFrm = True

End Sub

Private Sub Timer1_Timer()
If showLargeFrm Then
Dim p As POINTAPI, r As RECT
GetCursorPos p
GetWindowRect Me.hwnd, r
If p.X < r.Left Or p.X > r.Right Or p.Y < r.Top Or p.Y > r.Bottom Then
Form1.Width = 500
showLargeFrm = False
End If
End If
End Sub