请C#大侠帮忙翻译这段代码为VB.Net的，谢谢了！

Private Sub gridLookUpEdit1_Popup(ByVal sender As Object, ByVal e As EventArgs)

创新互联是一家集网站建设,赤城企业网站建设,赤城品牌网站建设,网站定制,赤城网站建设报价,网络营销,网络优化,赤城网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

FilterLookup(sender)

End Sub

Private Sub FilterLookup(ByVal sender As Object)

Text += " ! "

Dim edit As GridLookUpEdit = TryCast(sender, GridLookUpEdit)

Dim gridView As GridView = TryCast(edit.Properties.View, GridView)

Dim fi As FieldInfo = gridView.[GetType]().GetField("extraFilter", BindingFlags.NonPublic Or BindingFlags.Instance)

Text = edit.AutoSearchText

Dim op1 As New BinaryOperator("Code", edit.AutoSearchText + "%", BinaryOperatorType.[Like])

Dim op2 As New BinaryOperator("Name", edit.AutoSearchText + "%", BinaryOperatorType.[Like])

Dim filterCondition As String = New GroupOperator(GroupOperatorType.[Or], New CriteriaOperator() {op1, op2}).ToString()

fi.SetValue(gridView, filterCondition)

Dim mi As MethodInfo = gridView.[GetType]().GetMethod("ApplyColumnsFilterEx", BindingFlags.NonPublic Or BindingFlags.Instance)

mi.Invoke(gridView, Nothing)

End Sub

Private Sub gridLookUpEdit1_EditValueChanging(ByVal sender As Object, ByVal e As ChangingEventArgs)

Me.BeginInvoke(New System.Windows.Forms.MethodInvoker(Function() Do FilterLookup(sender) End Function))

End Sub

谁能帮忙把下面这段C#翻译成vb.net？

private withevents connectWork as new BackgroundWorker()

addhandler connectWork.DoWork addressof connectWork_DoWork

下同

vb代码翻译成vb.net代码

打开VS2005及以上版本，新建一个VB.NET语言的项目，然后点工具-升级VB6代码，把代码粘贴进去即可

文章题目：翻译vb.net 翻译拍照
当前路径：http://scyanting.com/article/higsij.html