Private Delegate Sub SetTextDelegate(ByVal TheText As String)
Private Sub delSetText(ByVal TheText As String)
Button1.Text = TheText
End Sub
Private Sub ChangeText(ByVal TheText As String)
If Button1.InvokeRequired Then
Me.BeginInvoke(New SetTextDelegate(AddressOf delSetText), TheText)
Else
delSetText(TheText)
End If
End Sub