عمل scrol ل text أعلى وأسفل

السلام عليكم

جرب هذا ممكن ينفع

Private Sub Form_Load()
VScroll1.Min = 0
VScroll1.Max = Len(Text1.Text)
End Sub

Private Sub VScroll1_Scroll()
Text1.SelStart = (VScroll1.Value)
End Sub

السلام علیکم و رحمة الله و برکاته

أخی العزیز جرب هذا الملف و هو شغال 100% ان شاء الله

ScrollTextbox.zip

السلام علیکم

آسف على البرنامج الفوق لانه ناقص هذا السطر في قسم التعريفات

Dim Diff As Integer