[mansoor]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim Thread As New Threading.Thread(Sub() main(Me.TextBox1, "Hello Word"))
    Thread.IsBackground = True
    Thread.Start()

End Sub 


PHP كود :

Module Dada
    Sub main(tb As TextBox, txt As String)

        tb.Invoke(Sub() tb.Text = txt)

    End Sub
End Module