Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Me.TextBox1.Lines.GetUpperBound(0) > 0 Then
Me.TextBox1.ScrollBars = ScrollBars.Vertical
Else
Me.TextBox1.ScrollBars = ScrollBars.None
End If
End Sub