Set Text

[ADO DOT NET]

Hello,

    Private Delegate Sub SetTextCallback(ByVal Message As String)
    Private Sub SetText(ByVal Message As String)
        If Me.ReportTextBox.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {Text})
        Else
            Me.ReportTextBox.Text = Me.ReportTextBox.Text + Message
        End If
    End Sub

This code is working well, but I want to append the new text to the end of text box, since it will replace the new text.
Sorry I am a newbie in threading!

 

[PlausiblyDamp]

Try

Me.Invoke(d, New Object() {Message})