ایجاد کلاس برای یک قطعه کد

[shaki 76]

درود بر همه اساتید.

عزیزان می خوام یک قطعه کد منو را به یک کلاس تبدیل کنم تا در همه جایه برنامم این منو رو استفاده کنم

لطفا راهنمایی کنید و نحوه ایجاد یک کلاس رو بهم بگید ممنون

این منو رو دوست خوبمون در منو گزاشتن

کل سورس به صورت زیر هست

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim menu As SideMenuBar
	Dim a As Typeface
	Dim b As Bitmap
	Dim i As Int = 0
	Private b_show As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	b.Initialize(File.DirAssets,"logo.png")
	a = Typeface.LoadFromAssets("dastnevis.otf")
	menu.Initialize("gh",Me,50%x,True,a,Colors.RGB(184,163,0),b,1,Colors.Black)
	
	menu.add_item("صفحه اصلی","",LoadBitmap(File.DirAssets,"Home.png"),1)
	menu.add_item("درباره ما","",LoadBitmap(File.DirAssets,"person-icon.png"),2)
	menu.add_item("ارتباط با ما","",LoadBitmap(File.DirAssets,"telephone-icon.png"),3)
	menu.add_item("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4)
	
	menu.make(Activity)
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub b_show_Click
	If i = 0 Then
		menu.show
	b_show.Left=b_show.Left+50%x
	Else
	menu.hide
	b_show.Left=b_show.Left-50%x
	End If
End Sub

Sub gh_Opened()
	i = 1
End Sub

Sub gh_Closed()
	i = 0
	b_show.Left=b_show.Left-50%x
End Sub

Sub gh_Click(Item As Object)
	ToastMessageShow("Item clicked: " & Item, False)
End Sub

حالا فکر کنم بهتر بشه کمک کنید

لطفا بهم ماهی گیری یاد بدید ممنون..

مثل همیشه پیشاپیش از راهنماییتون ممنون

sidemenubar_ex.rar

[msajad 501]

اموزشش رو اماده میکنم ادرسش رو همین جا میزارم

[shaki 76]

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

با تشکر فراوان

[msajad 501]

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

با تشکر فراوان

اختیار دارید کوچیکتونیم

اینم لینک اموزش

http://answercenter.ir/topic/3670-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%A9%D9%84%D8%A7%D8%B3/