مشکل تغییر رنگ در مولتی پنل

[fito 45]

سلام من مولتی پنلی دارم که میخوام با زدن یک دکمه رنگ پنل های مولتی پنل تغییر کنه

اما توی ساب دکمم قبلش ScrollView1.RemoveView و ScrollView1.pane.remov... و خود پنلم اگه ریموو ویو بزنم بازم جور در نمیا یا اسکرول بیشتر میشه یا خلاصه

حالا چطور رنگ همه پنل ها رو عوض کنم،   تو حالت معمولی که این کد رو میدم فقط آخریش عوض میشه رنگش

For i = 0 To cur.RowCount-1
	mul_panel.Color = Colors.Red
Next

اینم بگم که نمیخوام اکتیویتی رو تموم و یا دوباه لود کنم فقط میخوام با زدن دکمه رنگ پنلهاش عوض بشه.

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

	For i = 0 To cur.RowCount -1
		cur.Position = i
		Dim p As Panel
		p.Initialize("")
		ScrollView1.Panel.AddView(pp,0,s,100%x,60dip)
		s = s + 62dip
		p.LoadLayout("panel")
		ScrollView1.Panel.Height = s

		but.Tag = cur.Getstring("buy")
		but.Text = cur.GetString("name")	
	Next

 

[sinam443 108]

با سلام معمولا واسه چنین مواقعی یه سابی رو تعریف میکنن حالا به هر اسمی بعد میان تو ساب میگن که رنگ پنل عوض شه بعدشم میان کد های سابو به آخر کد مثلا بعد اینکه اسکرول ویو پاک کرد اضافه میکنن البته راه های دیگه هم ممکنه باشن.