کپی عینا چند خط کد در جاهای مختلف برنامه

[mina68]

با سلام خدمت اساتید محترم
چند خط کد که در یک select case نوشتم که قسمتیش در هر case عینا نکرار می شه دستورات به گونه ایی هست که نمی شه به صورت تابع در آورد
یادمه در turbo c روشی بود که به چند خط کد اسم می دادن و با فراخوانی اسم مانند این بود که اون خط ها در مکان فراخوانی عینا کپی شده( منظورم تابع نیست)
آیا در vb.net راهی برای انجام همچین کاری وجود داره؟

[mina68]

لا اقل اگه می دونیین بگین اسم این عمل چی بود تا خودم Search کنم

[mobtakercode]

http://msdn.microsoft.com/en-us/library/cy37t14y%28v=vs.80%29.aspx

به مثال ، آخر صفحه بالا دقت کنید.

[GGRRSS_2]

اميدوارم مفيد باشد

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub aaaaaa()
'- دستورات مورد نظر را وارد كنيد -
'- هر گاه نياز به اجراي اين دستورات داريد Call aaaaaa نماييد -
End Sub

End Class

[mina68]

Dim Items = (From Rec In Bank.TBL Where Rec.ID = 2 _
Select New With {.ID = Rec.ID, _
.Name = Rec.Name, _
.LName = Rec. LName, _
.
.
.


Dim Items = (From Rec In Bank.TBL Where Rec.Name = "Test" _
Select New With {.ID = Rec.ID, _
.Name = Rec.Name, _
.LName = Rec. LName, _
.
.
.


همانطور که مشاهده می کنید فقط قسمت شرط where آن تغییر می کنه("Rec.Name = "Test و Rec.ID = 2 و...) می خوام اون رو تبدیل به Function کنم ولی نمی دونم چطور می شه این کار رو کرد
شما چی به نظر تون می رسه؟