If Position = 11 Then ' Hazard map
Log(Position)
vPosition = Position
playMedia
strDialog = "Provides motorists and passengers of the traffic situation around the city."
Dim sf As Object = DetailsDialog.ShowAsync(items(Position ), "", "Cancel", "", LoadBitmap(File.DirAssets,images(Position ) & ".png"), False)
DetailsDialog.SetSize(100%x, ht)
Wait For (sf) Dialog_Ready(pnl As Panel)
pnl.LoadLayout("detailsDialog2") ' Webpage
WebView1.LoadUrl("http://www.hazardmap.tacloban.gov.ph")
cv5.Initialize("",0,Array As Int(Colors.Gray,Colors.LightGray,Colors.LightGray, Colors.Gray))
pnl.AddView(cv5,50%x-55dip,40%y,50dip,50dip)
AnimateIt(pnl)
cv5.Visible = True
End If