لطفا این چند خط رو به vb تبدیل کنید

[hossein-khoshseyar]

دوستان اگه ممکنه لطفا این چند خط رو به وی بی تبدیل کنید
ممنون

this.Invoke(new MyDelegate(delegate(int n)
{
Gbox_AI.Controls.Add(x[n]);
Gbox_AI.Text = n.ToString();
}), new object[] { 0 });

[h_assefi]

Me.Invoke(New MyDelegate(Function(n As Integer) Do
Gbox_AI.Controls.Add(x(n))
Gbox_AI.Text = n.ToString()
End Function), New Object() {0})

[hossein-khoshseyar]

Me.Invoke(New MyDelegate(Function(n As Integer) Do
Gbox_AI.Controls.Add(x(n))
Gbox_AI.Text = n.ToString()
End Function), New Object() {0})

فکر می کنم شما از این نرم افزار تبدیل استفاده کردی
دوست عزیز این کد مشکل داره
زحمت کپی کردن توی محیط وی بی رو بکش تا خطاهاش رو ببنی

[hossein-khoshseyar]

کسی نیست جواب بده!؟!

[h_assefi]

اگه از VS2010 استفاده می کنی این کد را بنویس ببین جواب میده یا نه

Me.Invoke(NewMyDelegate(Sub(i as Integer)
Gbox_AI.Controls.Add(x(n))
Gbox_AI.Text =n.ToString()
End Sub
),New Object(){0}
)

[h_assefi]

و اگه از VS2008 استفاده می کنی کد زیر را امتحان کن باید کار کنه

Private Sub test()
Me.Invoke(New MyDelegate(Function(n) AnonymousMethod1(n)), New Object() { 0 })
End Sub

Private Function AnonymousMethod1(ByVal n As Integer) As Object
Gbox_AI.Controls.Add(x(n))
Gbox_AI.Text = n.ToString()
Return Nothing
End Function

[hossein-khoshseyar]

ممنون از راهنمایت
من از 2008 استفاده می کنم
متاسفانه 2010 ندارم که تست کنم
اما کد 2008 شما درسته و کار می کنه , من خودم این رو می دونستم
اما می خواستم مثل سه شارپ نیازی به تعریف مجدد تابع نباشه و بشه توی به خط همشون حل کرد
که خوشبختانه این نقص توی 2010 ظاهرا بر طرف شده
در هر صورت ممنون