کار نکردن

سلام من منو رو طراحی کردم خوب هم هست اما وقتی برای ایمج ویو ها رویداد کلیک مینویسم وقتی از پروژه خروجی میگیرم عما نمی کنه مشکل از چیه؟
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
‘SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
‘These global variables will be redeclared each time the activity is created.
‘These variables can only be accessed from this module.
Private anim As AnimationPlus
Private img_menu As ImageView
Private img_set As ImageView
Private img_about As ImageView
Private img_supp As ImageView
Private img_star As ImageView
Private pnl As Panel
Private i As Int=0
Private lbl1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout(“main”)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub img_menu_Click

If i=0 Then
anim.InitializeRotateCenter(“”,۱۰,۹۰,img_menu)
img_menu.SetBackgroundImage(LoadBitmap(File.dirassets,”jj.png”))
anim.Duration=300
anim.Start(img_menu)
anim.PersistAfter=True
pnl.SetVisibleAnimated(0,True)

anim.InitializeTranslate(“”,۰,۰,۱۵۰,۰)
anim.Duration=150
anim.Start(img_about)
anim.PersistAfter=True
img_about.SetVisibleAnimated(300,True)

anim.InitializeTranslate(“”,۰,۰,۳۱۰,۰)
anim.Duration=300
anim.Start(img_supp)
anim.PersistAfter=True
img_supp.SetVisibleAnimated(400,True)

anim.InitializeTranslate(“”,۰,۰,۵۷۰,۰)
anim.Duration=450
anim.Start( img_star)
anim.PersistAfter=True
img_star.SetVisibleAnimated(700,True)

anim.InitializeTranslate(“”,۰,۰,۴۳۰,۰)
anim.Duration=600
anim.Start( img_set)
anim.PersistAfter=True
img_set.SetVisibleAnimated(800,True)

i=1
Return
End If

”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’
If i=1 Then
anim.InitializeRotateCenter(“”,۱۰,۲۷۰,img_menu)
anim.PersistAfter=False
img_menu.SetBackgroundImage(LoadBitmap(File.dirassets,”۱.png”))
anim.Duration=300
anim.Start(img_menu)
anim.PersistAfter=False
pnl.SetVisibleAnimated(500,False)

anim.InitializeTranslate(“”,۱۵۰,۰,۰,۰)
anim.Duration=150
anim.Start(img_about)
img_about.SetVisibleAnimated(300,False)
anim.PersistAfter=False

anim.InitializeTranslate(“”,۲۸۰,۰,۰,۰)
anim.Duration=300
anim.Start(img_set)
img_set.SetVisibleAnimated(400,False)
anim.PersistAfter=False

anim.InitializeTranslate(“”,۶۲۰,۰,۰,۰)
anim.Duration=450
anim.Start(img_supp)
img_supp.SetVisibleAnimated(800,False)
anim.PersistAfter=False

anim.InitializeTranslate(“”,۴۳۰,۰,۰,۰)
anim.Duration=600
anim.Start(img_star)
img_star.SetVisibleAnimated(900,False)
anim.PersistAfter=False

i=0

End If
End Sub

Sub img_about_Click

lbl1.Text=”flower”

End sub