باز شدن یک فرم با توجه به موقعیت کرسر

سلام
میخواهم وقتی بر روی تکست باکس فرم شماره 1 فوکوس یا کلیک میشود فرم شماره 2 بر روی کادر سبز رنگ باز شود . عنایت داشته باشین که مکان این تکست باکس متغیر است. و اینکه این فرم با توجه به موقعیت کرسر باید باز شود نه موقعیت مکانی کادر سبز رنگ

Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As LongPrivate Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long

Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type

Private Sub Text1_Click()

    Dim r As RECT

    GetWindowRect Text1.hwnd, r

    SetCursorPos (r.Left + r.Right) \ 2, (r.Top + r.Bottom) \ 2

    DoCmd.OpenForm "Form2"

    Form_form2.Move ScaleX(r.Left, vbPixels, vbTwips) - Form_form2.Width, ScaleY(r.Top, vbPixels, vbTwips)

End Sub

این سوال در بخش وی بی پرسیده ام و در محیط وی بی جواب گرفتم ولی در محیط اکسس کدهای مربوطه به مشکل بر میخورد .
مشکل من بیشتر مربوط به ScaleX و Scaley است که این خصوصیتها در اکسس وجود ندارد .
لینک سوال در بخش وی بی
ممنون میشوم اساتید عزیز راهنمائی بفرمایند

با سلام
اول با کد بیسیک باید x,y کرسر رو فراخوانی کنید و چون با رزولوشن کامپیوتر تغییر میکنه دچار مشکل میشین .
فعلا بر اساس موقعیت کادر سبز براتون اصلاح کردم .

نقل قول:

---

نوشته شده توسط padide55

با سلام
اول با کد بیسیک باید x,y کرسر رو فراخوانی کنید و چون با رزولوشن کامپیوتر تغییر میکنه دچار مشکل میشین .
فعلا بر اساس موقعیت کادر سبز براتون اصلاح کردم .

---

این نمونه حرکت با کرسر مکان نمای ماوس- تنظیم مکان نمای ماوس خیلی مشکله
باید رزولوشن مانیتور رو هم با اون ست کنید که دقیق عمل کنه .

نقل قول:

---

نوشته شده توسط padide55

این نمونه حرکت با کرسر مکان نمای ماوس- تنظیم مکان نمای ماوس خیلی مشکله
باید رزولوشن مانیتور رو هم با اون ست کنید که دقیق عمل کنه .

---

ممنون از پیگیریتون جناب padide55

نقل قول:

---

نوشته شده توسط padide55

این نمونه حرکت با کرسر مکان نمای ماوس- تنظیم مکان نمای ماوس خیلی مشکله
باید رزولوشن مانیتور رو هم با اون ست کنید که دقیق عمل کنه .

---

سلام ممنون میشم نسخه ۲۰۰۳ .mdb این نمونه را آپ‌کنید

بازشدن فرم دوم بر اساس موقعیت یک لیبل در فرم اصلی
نمونه 2003