اظافه یا کم شدن عدد لیبل با کلیک

[majid08 266]

سلام یه لبل دارم میخام با کلیک روش هم رنگش عوض شه و عدد توش یکی اظافه شده و اگر دوباره همون رو همون کاربر کلیک کرد یکی ازش کم شه و رنگش هم عوض شه

برنامه انلاین هست

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

Dim pe As ImageView
	pe=Sender
	
	
	Dim ide1() As String
	ide1=Regex.Split("<br>" ,pe.Tag)
	For i=0 To ide1.Length-1
	Dim a01 As String	=	Round ( ide1(1) + 1)
	fav_lab.Text=a01"
	Next
	adad= ide1(1) + 1
	
	 Dim bb2 As BitmapDrawable
	 bb2.Initialize(LoadBitmap(File.DirAssets,"favicon1.png"))
	 
	 Dim bb1 As BitmapDrawable
	 bb1.Initialize(LoadBitmap(File.DirAssets,"favicon2.png"))
	 pe.Background=bb2
	 
	 If fav_icon.Background=bb2 Then
	 	pe.Background=bb1
		Else if fav_icon.Background=bb1 Then
		pe.Background=bb2
	End If