Type 'SetTextCallback' is not defined.

[The Little Guy]

Why Am I getting this error:

Type 'SetTextCallback' is not defined.

    Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
        CMDThread.Start()
    End Sub

    Private Sub CMDAutomate()
        Dim i = 0
        Dim rows = 10
        While i < rows
            Dim newText As String = "Creating file"
            ' Check if this method is running on a different thread
            ' than the thread that created the control.
            If Me.lblStatus.InvokeRequired Then
                ' It's on a different thread, so use Invoke.
                Dim d As New SetTextCallback(AddressOf SetText)
                Me.InvokePaint(d, New Object() {[newText]})
            Else
                ' It's on the same thread, no need for Invoke.
                Me.lblStatus.Text = [newText]
            End If
        End While
    End Sub

I basically copied and pasted from:
http://msdn.microsoft.com/en-us/library/ms171728.aspx

[stanav]

From that code, SetTextCallBack is a delegate and SetText is a method.
You will need to write them yourself.

[The Little Guy]

I have this too, I still get the error

    Private Sub SetText(ByVal [text] As String)
        Me.lblStatus.Text = [text]
    End Sub

[dee-u]

You did not copy this.

Delegate Sub SetTextCallback(ByVal [text] As String)

[stanav]

The whole thing should look like this:

 Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
        CMDThread.Start()
    End Sub

    Private Sub CMDAutomate()
        Dim i = 0
        Dim rows = 10
        While i < rows
            Dim newText As String = "Creating file"
            SetText(newText)
       End While
    End Sub

Private Delegate Sub SetTextCallback(ByVal [text] As String)

    Private Sub SetText(ByVal newText As String)
        If Me.lblStatus.InvokeRequired Then
            ' It's on a different thread, so use Invoke.
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {newText})
        Else
            ' It's on the same thread, no need for Invoke.
            Me.lblStatus.Text = newText
        End If

    End Sub

[The Little Guy]

Thanks, it works!