حذف آیتم از پنل (پیشرفته)

[ben799 2]

سلام خدا قوت 

با استفاده از این کدها می شه با هر بار کلیک بر روی button1 به صورت بی نهایت پنل به وجود می آورد 

من می خواستم بدونم چجوری می شه پنل مورد نظر رو با کلیک بر رو checkbox مربوطه و زدن button2 حذفش کرد؟

Sub Process_Globals
End Sub
Sub Globals
	Dim i As Int = 1
	Dim c As Int
	
	Dim check(i) As CheckBox
	Dim p(i) As Panel
	Dim list(i) As ListView

	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Private Button2 As Button
	Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("form")

	p(i- 1).Initialize("")
	list(i-1).Initialize("")
	check(i-1).Initialize("")
	
	ScrollView1.Panel.LoadLayout("form2")
	ScrollView1.Panel.Height = 200%y
	Panel1.Height = 200%y
End Sub

Sub Button1_Click
	' اضافه کردن پنل
	Dim check(i) As CheckBox
	Dim p(i) As Panel
	Dim list(i) As ListView
	
	p(i- 1).Initialize("")
	list(i-1).Initialize("")
	check(i-1).Initialize("")
	
	list(i-1).Color = Colors.Red
	p(i-1).Color =Colors.Blue
	
	p(i-1).AddView( list(i-1) ,1%x,1%y,80%x,10%y)
	p(i-1).AddView(check(i-1),90%x,1%y,9%x,10%y)
	list(i-1).AddTwoLines("first line","second line")
	If i>1 Then
		Panel1.AddView(p(i-1),0,c+11%y,100%x,10%y)
	Else
		Panel1.AddView(p(i-1),0,0,100%x,10%y)
	End If
	c = p(i-1).Top
	i=i+1
End Sub

Sub Button2_Click
'	حذف آیتم ها
End Sub

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

با تشکر از اعضای سایت و مدیران محترم