Sub SendEmail
...
smtpEMail.Initialize with Event SMTP
smtpEMail.Send
...
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Dim msg As String = DateTime.Time(DateTime.Now) & " :: Mail sent "
If Success = False Then
msg = msg & "error."
Else
msg = msg & "successful."
End If
' THIS DOES NOT WORK STRAIGHT - The label is updated after f.e. button About was clicked
lblFooter.SetText(msg)
End Sub