Dim Txt As String
Dim i As Integer, Ln As Integer
Dim Fin As Boolean
Dim Pos As Integer
Private Sub CommandButton1_Click()
Pos = TextBox1.Left: Ln = 1
While Fin = False
TextBox1.Left = Pos
For i = 1 To Ln
Txt = "Bonjour et bienvenue dans S.A.P.I.N, " & _
"nous sommes le " & Format(Date, "dddd dd mmmm yyyy") & _
", il est " & Format(Now, "hh:mm:ss") & Space(20)
Ln = Len(Txt)
TextBox1.Text = Left(Txt, i): TextBox1.Left = TextBox1.Left - 4
Me.Repaint
TimerMS
Next
Wend
End Sub
Private Sub CommandButton2_Click()
Fin = True
Unload UserForm1
End Sub