Private Delegate Sub AddTextDelegate(ByVal p As Panel, ByVal text As String)
Private Sub AddText(ByVal p As Panel, ByVal text As String)
p.Children.Clear()
Dim t As New TextBlock
t.Text = text
p.Children.Add(t)
End Sub
Private Sub TestBeginInvokeWithParameters(ByVal p As Panel)
If p.Dispatcher.CheckAccess() _
Then AddText(p, "Added directly.") _
Else p.Dispatcher.BeginInvoke(New AddTextDelegate( _
AddressOf AddText), p, "Added by Dispatcher.")
End Sub