Public Sub e_Erreur(ByVal Sender As Object, ByVal e As ElgSocketEventArgs)
' Si il y a eu une erreur :
If (TabUtilisateur.InvokeRequired) Then
TabUtilisateur.Invoke(New ElgSocketClient.ElgSocketDelegate(AddressOf e_Erreur), Sender, e)
Else
TabUtilisateur.LabelEtat.Text = "Bug"
TabUtilisateur.LabelEtat.ForeColor = Color.Red
connexionTermine = 0
If (autoReconnect) Then
If (socket.Connecter = False) Then
CreateSocket()
End If
End If
End If
End Sub