تغییر متن لیبل در مولتی پنل

[ssshojaei 0]

درود به دوستان عزیز

من یه مولتی‌پنل دارم توش یه SeekBar و یه لیبل هست، میخوام مقدار هر SeekBar که عوض شد، مقدارش توی لیبل زیرش نوشته بشه

	For i=0 To Main.cheeked.Size-1
		Log(Main.list.Get(Main.cheeked.Get(i)))
		'aaaaa
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,3%x,top,94%x,80dip)
		p.LoadLayout("list_view")
		title.Text = Main.list.Get(Main.cheeked.Get(i))
		Amount.Text = avg
		SeekBar.Max = Main.TotalAmount
		SeekBar.Tag = i
		top = top + 60dip + 3%X
		Panel1.Tag = i
		'aaaaa
	Next

Sub SeekBar_ValueChanged (Value As Int, UserChanged As Boolean)
	Dim val As Label
	val = Sender
	Amount.Text = val.Tag
End Sub

این کدها هست که با تغییر هر کدوم از SeekBar ها، مقدار آخرین لیبل رو عوض میکنه