حل مشكلة Cross-thread Control accessed from a thread other than the thread

السلام عليكم ورحمة الله وبركاته ...........

Sub SetText()

        If Me.TextBox1.InvokeRequired Then
            Dim d As New dlgSetText(AddressOf SetText)
            Me.TextBox1.Invoke(d)
        End If

        SyncLock Me.TextBox1
            Me.TextBox1.Text = "HI there"
        End SyncLock

    End Sub



    Delegate Sub dlgSetText()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As New Threading.Thread(AddressOf SetText)
        t.Start()
    End Sub