[princeofislam]

اشكرك من صميم قلبي الغالي استاذنا احمد منصور الله يبارك فيك و بكل من تراهم و تفكر فيهم
فعلا اوجزت ووفيت

تحية لك لم انسى مساعدك ببرنامجي الاول هنا  بارككم الله سيدي

---

كود :

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 0 Then

Text2.SelStart = 0
Text2.SelLength = Len(Text2) + 150
Text2.SetFocus
End If

End Sub

استاذي الغالي احمد منصور والله لولا الله اولا وانتم ثانيا لم اجد هذا الكود الرائع
انظر عندما قمت بوضع زيادة مئة وخمسين اصبح يضلل خانة الاسم كاملة قمت بالبحث في الانترنت ووجدت هذا الكود - ولولا كود الرائع لما استطعت ان ابحث عن نفس الكود

اشكركم من صميم قلبي وكم انا سعيد