COMMENT FAIRE DESCENDRE L'ASCENSEUR OU SCROLLBAR POUR UNE TEXTBOX

Option Explicit
'
'
'************************************************
'
' Ce petit Prog montre coment
' faire descendre l'ascenseur sur
' la fin d'un texte en utilisant "SelStart"
'
'************************************************
'
'
Private Sub Check1_Click()
    Montre_Fin_Texte
End Sub

Private Sub Command1_Click()
    AjouteTexte "Du texte en plus..."
End Sub

Sub Montre_Fin_Texte()
    If Check1.Value = 1 Then Text1.SelStart = Len(Text1.Text) Else Text1.SelStart = 1
End Sub

Sub AjouteTexte(Texte As String)
    Text1.Text = Text1.Text + Texte + vbCrLf + vbCrLf
    Montre_Fin_Texte
End Sub