مولتی پنل آنلاین

سلام دوستان

این جاب دان هر وقت برنامه اجرا میشه ارر اتصال به اینترنت میده

میشه کسی وقت داره بررسیش کنه ببینه دلیل چیه؟

من سر در نیاوردم

Sub jobdone (job As HttpJob)
	If job.Success=True Then
	ProgressDialogHide
	If job.JobName = "ht2" Then
		lbl_kolevamha1.Text=""
		lbl_kolevamha1.Text=job.GetString
	End If

	If job.JobName="ht1" Then
		If job.Success=True Then
			jp.Initialize(job.GetString)
			Dim list As List=jp.NextArray
			For i=0 To list.Size-1
				Dim map1 As Map=list.Get(i)
				Dim fa As String
				fa=map1.Get("famili")&" - "&map1.Get("nam")
				Dim p As Panel
				p.Initialize("p")
				slvvamgiran.Panel.AddView(p,0%x,top,95%x,55%y)
				slvvamgiran.panel.Height=100%y
				p.LoadLayout("lgozaresh_mpkol")
				p.Height=100%y
				top=top+8%y+0%x
				lblnam.Text= fa
				lblid.Text=map1.Get("id")
				count.Text=map1.Get("jari")
				slvvamgiran.Panel.Height=top	
			Next
				If count.Text=0 Then
					ToastMessageShow("فهرست خالی است!",False)
				End If
		End If
	Else
		ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False)
	End If
	Main.ht1.Release
	End If
End Sub

ممنونم