مشکل در AppCompat

[amir_7 0]

سلام 

من تازه کار با کتابخانه AppCompat رو شروع کردم جند آموزش هم توی همین انجمن دیدم و همه چی خوب پیش رفت تا اینکه الان میخوام یک منوی ساده در Actionbar که ساختم قرار بدم که متاسفانه نمیشه خطا هم نمیده کد تست رو قرار میدم لطفا بگین مشکل از چیه

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
	#Extends: android.support.v7.app.AppCompatActivity
#End Region

Sub Process_Globals


End Sub

Sub Globals
	Dim men As ACMenuItem
	Dim ser As ACSearchView
	Private Button1 As Button
	Dim spinner1 As Spinner
End Sub

#If Java
	public boolean _onCreateOptionsMenu(android.view.Menu menu) {
		if (processBA.subExists("activity_createmenu")) {
			processBA.raiseEvent2(null, true, "activity_createmenu", false, new de.amberhome.objects.appcompat.ACMenuWrapper(menu));
			return true;
		}
		else
			return false;
	}
#End If
Sub Activity_Create(FirstTime As Boolean)

spinner1.Initialize("spinner")
	spinner1.AddAll(Array("Number1", "Number2", "Number3", "Number4", "Number5", "Number6", "Number7"))
	Dim p As Phone
	If p.SdkVersion < 11 Then
		spinner1.DropdownBackgroundColor = Colors.DarkGray
		spinner1.DropdownTextColor = Colors.White
		spinner1.TextColor = Colors.White
	Else If p.SdkVersion < 21 Then
		spinner1.DropdownBackgroundColor = Colors.DarkGray
	End If

	Activity.AddMenuItem("Mahdi", "Menu")
	Activity.AddMenuItem("Arian", "Menu")
	Activity.AddMenuItem("Armin", "Menu")
	Activity.AddMenuItem("Arash", "Menu")

	Activity.LoadLayout("lmain")
ForseRtlSupported
End Sub

Sub Activity_CreateMenu(menus As ACMenu)
	
	
	ser.Initialize2("search" , ser.THEME_DARK)
	ser.IconifiedByDefault=True
	
	menus.Clear
	
	men=menus.Add2(1,1,"سرج" , Null)
	men.SearchView=ser

End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub ForseRtlSupported
	Dim j1,j2 As JavaObject
	j2.InitializeStatic("android.view.View")
	If j1.InitializeStatic ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
		j1.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null) _
		.RunMethod ("setLayoutDirection",Array(j2.GetField ("LAYOUT_DIRECTION_RTL")))
	End If
End Sub

Sub Button1_Click

	StartActivity(apptest)
	
	
End Sub

 همه قسمتا حتی سرج ب خوبی کار میکنه غیر از منو !!!