[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل

كود :

Dim Nowposition As Integer
   ' حدث ماوس داون
   Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
       Nowposition = 0
       If e.Clicks = 1 AndAlso e.Button = MouseButtons.Left Then
           Nowposition = TextBox1.GetCharIndexFromPosition(New Point(e.X, e.Y))
           MsgBox("المكان الحالي للمؤشر بعد " & Nowposition & " حرفا")

       End If
   End Sub