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

[imvic 23]

سلام دوستان خسته نباشید من در مولتی پنل به یه مشکلی بر خوردم و نتونستم راهی براش پیدا کنم 

اونم اینه که من اول میام 20 تا ایتم رو از aparat میگیرم و لود میکنم و با خوبی و خوشی در مولتی پنل لود میشه برای لود کردن 20 تای دوم یک ساب نوشتم که هروقت به انتهای اسکرول رسید 20 تا دیگه لود کنه اما اینجا که میرسه نمیدونم پرا میزنه out of memory و برنامه بسته میشه راهی هست برای حل این موضوع ؟؟؟ ممنون میشم اگه کمکم کنید

اینم کدیه که مولتی پنلارو لود میکنه

 

Sub av_OnStringResponse (response As String)
	Try
	
		Dim parser As JSONParser
		parser.Initialize(response)
		Dim root As Map = parser.NextObject
		Dim ui As Map = root.Get("ui")
		Dim pagingForward As String = ui.Get("pagingForward")
		f=pagingForward
		Dim videobyuser As List = root.Get("videobyuser")
	
		For Each colvideobyuser As Map In videobyuser
			'Dim sdate As String = colvideobyuser.Get("sdate")
			'Dim sender_name As String = colvideobyuser.Get("sender_name")
			'Dim uid As String = colvideobyuser.Get("uid")
			Dim title As String = colvideobyuser.Get("title")
			Dim duration As String = colvideobyuser.Get("duration")
			Dim small_poster As String = colvideobyuser.Get("small_poster")
			Dim p As Panel
			p.Initialize("p")
			p.Tag=colvideobyuser.Get("id")
			ScrollView1.Panel.AddView(p,0,top,100%x,100%y)
			top= top + 14%Y
			p.LoadLayout("items")
			lblmMultiTitle.Text=colvideobyuser.Get("title")
			lblgrp.Text=ConvertToTimeFormat(colvideobyuser.Get("duration"))
			list1.Add(colvideobyuser.Get("title"))
			list2.add(colvideobyuser.Get("duration"))
			pic.LoadUrl(colvideobyuser.Get("small_poster")).Resize(imgMulti.Width,imgMulti.Height).CenterInside.IntoImageView(imgMulti)
			
		Next

	
		ScrollView1.Panel.Height=top

	Catch
		Log(LastException)
	End Try
End Sub