Public Overridable Sub Post ( _
    d As SendOrPostCallback, _
    state As Object _
)

Public Delegate Sub SendOrPostCallback ( _
    state As Object _
)

Dim _syncContext As Threading.SynchronizationContext = _
  Threading.SynchronizationContext.Current
 
Private Sub daten_Changed2(ByVal sender As Object, ByVal e As EventArgs) _
  Handles daten.Changed
  If Me.InvokeRequired Then
	'Delegate auf diese Methode selbst
	Dim dele As EventHandler = AddressOf daten_Changed2
	'SendOrPostCallback mit Lambda-Expression erszeugen
	Dim sendOrPostCb As Threading.SendOrPostCallback = Function(o) _
  dele.DynamicInvoke(sender, e)
	_syncContext.Post(sendOrPostCb, Nothing)
	'So 
	'	_syncContext.Post(Function(o) dele(sender, e), Nothing)
	'geht's nicht, da EventHandler keinen Wert zurückgibt,
	'der Body der Lambda-Expression jedoch einen Wert erwartet.
	'Deswegen DynamicInvoke, da dies "Object" zurückgibt. 
	'Der Compiler macht dann aber trotzdem einen
	'SendOrPostCallback draus.
  Else
	If Me.IsDisposed Then Return
	Me.TextBox1.Text = "Changed " & Now.ToString
  End If
End Sub

Private Sub daten_Changed2(ByVal sender As Object, ByVal e As EventArgs) _
  Handles daten.Changed
	If Me.InvokeRequired Then
		Dim dele As EventHandler = AddressOf daten_Changed2
		_syncContext.Post(Function(o) dele.DynamicInvoke(sender, e), Nothing)
	Else
		If Me.IsDisposed Then Return
		Me.TextBox1.Text = "Changed " & Now.ToString
	End If
End Sub