مشکل با ساید بار

[آوای دل 38]

سلام دوستان 

من برای ساید بارم از کتابخانه slidingmenuwrapper  استفاده کردم 

که توی پنلی که توی ساید بار باز میشه یه لیست ویو قرار داره 

که کد های زیر را براش نوشتم 

Dim m1 As SlidingMenu
	 Private listside As ListView

این کد ها توی create

m1.Initialize("")
m1.BehindOffset=130dip
m1.Mode=m1.LEFT
m1.Menu.LoadLayout("fsidebar")

listside.AddsingleLine2("راز",1)
listside.AddsingleLine2("درباره ما",2)
listside.AddsingleLine2("ارتباط با ما",3)
listside.AddsingleLine2("حتما بخوانید",4)
listside.AddsingleLine2("ثبت نظر",5)
listside.AddsingleLine2("خروج",6)
listside.Color=0xFFD32F2F
listside.SingleLineLayout.Label.Gravity=Gravity.center
listside.SingleLineLayout.Label.TextSize=2%x
listside.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("BHOMA.TTF")

'Sub listside_ItemClick (Position As Int, Value As Object)
'	If Position=0 Then
'	StartActivity(actsecret)
'	End If
'	If Position=1 Then
'	StartActivity(actabout)
'	End If
'	If Position=2 Then
'	StartActivity(actcontact)
'	End If
'	If Position=3 Then
'	'StartActivity(actsecret)
'	End If
'	If Position=4 Then
'	'StartActivity(actsecret)
'	End If
'	If Position=5 Then
' 	Dim result As Int
'    result=Msgbox2("از برنامه خارج میشی","","خیر","","بله",Null)
'    	If result=DialogResponse.POSITIVE Then
'			Return True
'		Else If result=DialogResponse.NEGATIVE Then
'			ExitApplication
'		End If
'	End If
'	Activity.Finish
'End Sub

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

یکی از دوستان گفت از class استفاده کن ولی خب بلد نیستم 

اگه کسی بلده راهنمایی کنه

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

[آوای دل 38]

ببخشید اسپم میدم

آقا یکی کمک کنه برنامه ام  گیر همینه