Private Sub SetCuadroTexto(ByVal [text] As String)
' InvokeRequired required compares the thread ID of the
' calling thread to the thread ID of the creating thread.
'If these threads are different, it returns true.
If Me.CuadroTexto.InvokeRequired Then
Dim d As New SetCuadroTextoCallback1(AddressOf SetCuadroTexto)
Me.Invoke(d, New Object() {[text]})
Else
Me.CuadroTexto.Text = [text]
Me.CuadroTexto.Visible = True
End If
End Sub