Move the form to the vicinity of the mouse (VB6)

Private   Declare   Function getcursorpos () Function Getcursorpos Lib   " USER32 " (Lppoint As Pointapi) As   Long
Private   Declare   Sub getclientrect () Sub Getclientrect Lib   " USER32 " ( Byval Hwnd As   Long , Lprect As Rect)
Private   Declare   Function movewindow () Function Movewindow Lib   " USER32 " ( Byval Hwnd As   Long , Byval X As   Long , Byval Y As   Long , Byval Nwidth As   Long , Byval Nheight As   Long , Byval Brepaint As   Long ) As   Long
Private Type rect
Left   As   Long
Top As   Long
Right   As   Long
Bottom As   Long
End Type

Private Type pointapi
X As   Long
Y As   Long
End Type
Private Cursorpoint As Pointapi
Private Dialogrect As Rect

' Move the form near the mouse
Public   Sub movedialogtocursor () Sub Movedialogtocursor ( Byref Moveform As Form)
Getcursorpos cursorpoint
Getclientrect moveform. hwnd, dialogrect
Movewindow moveform. hwnd, cursorpoint. x +   10 , Cursorpoint. Y +   10 , Dialogrect. Right - Dialogrect. Left, dialogrect. Bottom - Dialogrect. Top, 0

If Moveform. Left + Moveform. Width > Screen. Width -   10   Then
Moveform. Left = Screen. Width - Moveform. Width -   10
End   If

If Moveform. Top + Moveform. Height > Screen. Height -   10   Then
Moveform. Top = Screen. Height - Moveform. Height -   10
End   If

Getclientrect moveform. hwnd, dialogrect
If Dialogrect. Right < Cursorpoint. x And Dialogrect. Bottom < Cursorpoint. Y Then
Movewindow moveform. hwnd, cursorpoint. x - (Dialogrect. Right - Dialogrect. Left) -   10 , Cursorpoint. Y - (Dialogrect. Bottom - Dialogrect. Top) -   10 , Dialogrect. Right - Dialogrect. Left, dialogrect. Bottom - Dialogrect. Top, 0
End   If
End sub