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! :rolleyes:

[PlausiblyDamp]

Try

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