Option Compare Database
Option Explicit

Private Declare Function MoveWindow Lib "user32.dll" (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 Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As Rect) As Long

Private Type POINT_TYPE
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

Private Sub Form_Open(Cancel As Integer)
Dim coord As POINT_TYPE ' координаты курсора
Dim retval As Long ' возвращаемое значение
Dim r As Rect ' размеры окна
retval = GetCursorPos(coord) ' считываем позицию курсора
retval = GetWindowRect(Me.hwnd, r) ' считываем размеры текущего окна
' Перемещаем окно формы по позиции курсора
retval = MoveWindow(Me.hwnd, coord.x, coord.y, r.right - r.left, r.bottom - r.top, 1)
End Sub