Visual Basic

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As New doSomething
        a.Target = Me.TextBox1
        
        Dim s As New Threading.Thread(AddressOf a.update)
        s.IsBackground = True
        s.Start()
    End Sub
End Class

Public Class doSomething
    Public Property Target As TextBox
    
    Public Sub update()
        SetControlText(Target, "Hey Please Update the Textbox")
    End Sub
    
    Private Shared Sub SetControlText(ByVal ctl As TextBox, ByVal text As String)
        If ctl.InvokeRequired Then
            ctl.Invoke(New Action(Of TextBox, String)(AddressOf SetControlText), ctl, text)
        Else
            ctl.Text = text
        End If
    End Sub
End Class

Member 12603473 wrote:

but I got a compiler error.

Sub Macro1()
'
' With ActiveDocument.PageSetup
            .LineNumbering.Active = False

<%@ Register Scr="~ascx/card.ascx" TagPrefix="uc1" TagName="Card" %>



<uc1:card id="Card0" runat="server iCode_str="pg" />