vb基本语法有关问题

Me.Invoke(Sub(msg) txtCode.Text = msg, "123")

------解决方案--------------------

VB.NET code

 Private Delegate Sub InvokeDelegate(myString As String)

    Private Sub ChangeText(myString As String)
        txtCode.Text = myString
    End Sub

    Private Sub GetData(msg As String)
        Try
            Me.Invoke(New InvokeDelegate(AddressOf ChangeText), msg)
        Catch ex As Exception
            MessageBox.Show("异常，请重试！！！")
        End Try

    End Sub