• Home
 · 
• VB function enhancement
 · 
• Auto-Scrolling TextBox

Auto-Scrolling TextBox

A few lines of useful code to make a text box auto scroll to the bottom every time it changes. (like mIRC and msn)
Simply replace Text1 with the name of your textbox.
By Alex. (https://www.alexchia.com)

Rate Auto-Scrolling TextBox

• 1
• 2
• 3
• 4
• 5

(20(20 Vote))

Private Sub Text1_Change()
 On Error Resume Next
 Text1.SelLength = 0
 If Len(Text1.Text) > 0 Then
 If Right$(Text1.Text,1) = vbCrLf Then
  Text1.SelStart = Len(Text1.Text) - 1
  Exit Sub
 End If
 Text1.SelStart = Len(Text1.Text)
 End If
End Sub