رویداد موس

[the king]

سلام
با استفاده از کدهای جناب the king میخواهم در هر کجای تکست باکس کلیک کردم اشاره گر در آخر تکست باکس (منتها الیه سمت چپ) و در نوک پیکان قرار گیرد
ضمناً اندازه طول و عرض تکست باکس متغییر است .

هدفم از اینکار اینست که باکلیک بر روی تکست باکس فرمی در منتها الیه سمت چپ تکست باکس باز شود بطوریکه از بالا فرم و تکست باکس همسطح شوند.(چیزی شبیه تصویر ضمیمه)

شاید با کد دیگری این کار انجام شود ولی من احساس کردم شاید با استفاده از کدهای بالا بشود اینکار رو انجام داد

با تشکر

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