Private Sub CommandButton3_Click()
Dim T
H = DateHeureTchat
h1 = Now
If h1 < H + 1 / 86400 Then
T = Timer + 1 'pour 1 seconde
Do While Timer < T: Loop
End If
If TextBox2.Value = "" Then Exit Sub
Open ChNomFTchat For Output As #1
Print #1, UserLogin & ": " & Me.TextBox2.Text
Close #1
Me.TextBox2.Text = ""
Me.TextBox2.SetFocus
End Sub