Bonjour à tous

J'ai un doute sur un bout de code que j'ai. Je déclare un delegate

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Delegate Sub ChangeLog(ByVal Valeur As String)
et ensuite je le définie comm ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Public Sub AddValueLog(ByVal Valeur As String)
        Invoke(New ChangeLog(AddressOf AddLog), Valeur)
End Sub
 
Private Sub AddLog(ByVal Valeur As String)
        txtLog.AppendText(Valeur)
End Sub
N'y aurait-il pas une solution de réduire tout ça ?
Etant pas expert en vb, merci d'avance de vos avis !!