Sub setEventMainInfo(strInfo As String)
Dim intA,intB,intCnt As Int
Dim imgOne As String, titleOne As String ,strDteOne As String, strLocOne As String, imgTwo As String, titleTwo As String ,strDteTwo As String, strLocTwo,strIntOne,strIntTwo As String
Dim evtInfo() As String = Regex.Split("`",strInfo)
CallSub(ImageDownloader, "ClearCache")
CallSub(ImageDownloader, "ActivityIsPaused")
If evtInfo.Length > 0 And strInfo.Trim.Length > 1 Then
pnlEventInfo2.RemoveAllViews
pnlEventInfo2.LoadLayout("clvEventInfo")
clvEventInfo.Clear
clvEventInfo.BackgroundColor(20,1)
clvEventInfo.asview.Height = (evtInfo.Length * 200dip)
pnlEventInfo2.Height =clvEventInfo.asview.Height + 20dip
pnlEventInfoMain2.height = pnlEventInfo2.Height + 400dip
For intA = 0 To evtInfo.Length - 1
If evtInfo(intA).Length > 0 Then
clvEventInfo.Add(CreateEventInfo(eventTitle2(intA),eventPhoto2(intA), eventDate2(intA),eventLoc2(intA), intA),80dip,intA)
End If
Next
svEvent.Panel.Height = pnlEventInfoMain2.Top + pnlEventInfoMain2.Height + 90dip
Dim jo As JavaObject = svEvent.Panel 'refresh scrollview height
jo.RunMethod("requestLayout", Null)
End If
End Sub