رویداد موس

[atf1379]

Private Sub Text1_Click()

    Dim r As RECT

    GetWindowRect Text1.hwnd, r

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

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

    Form3.Show

End Sub

سلام
من میخواهم این کد رو در محیط اکسس بکار ببرم ولی در اکسس خصوصیت ScaleX و Scaley وجود ندارد . خواستم خواهش کنم یکی از دوستان در مورد کد زیر توضیحی بفرماید که دقیقاً این کد چه کاربردی دارد

ScaleX(r.Left, vbPixels, vbTwips)



 ScaleY(r.Top, vbPixels, vbTwips)

و آیا امکان دارد این کد رو بنحو دیگری تبدیل کرد که نیاز به ScaleX و ScaleX نداشته باشد ؟
ممنون