Not tested (or even compiled) but something like
Public Class Form1
Delegate Sub SetEnabledCallback(ByVal enabled As Boolean)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thRead As New Thread(New ParameterizedThreadStart(AddressOf myThread))
thRead.Start()
End Sub
Private Sub myThread(ByVal o As Object)
Me.SetText("a")
End Sub
Private Sub SetEnabled(ByVal enabled As Boolean)
If Me.TextBox1.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetEnabled)
Me.Invoke(d, New Object() {enabled})
Else
Me.TextBox1.Enabled = enabled
End If
End Sub
End Class
should do the trick.