If nRows < 1 Then Return
Dim favot(nRows) As String
Dim mapc(nRows) As String
	
	PanelTop=0
	Panel0=scvMain.Panel
	Panel0.Color=Colors.Gray

nRows = nRows - 1

For nPos = 0 To nRows
oRst.Position = nPos	
		
	mapc(nPos) = oRst.GetString("MapNaam") 
  	main.regelonder = oRst.GetString("Regelonder")
  	favot(nPos) = oRst.GetString("keuze")
  	wijk  =  oRst.GetString("wijk") 
  	main.pic  = oRst.GetString("pic") 
	metrostation = oRst.GetString("metrostation")
	metro = oRst.GetString("metro")
	bus = oRst.GetString("bus")
	bezoektijd = oRst.GetString("bezoektijd")
	arronnr = oRst.GetString("arronnr")
	kruist = oRst.GetString("kruistmetro")

	Text1 = mapc(nPos)
	Text2 = "Metro: " & metrostation & " " & metro
	Text3 = main.regelonder
	Text4 =	"Bezoektijd " & bezoektijd & " uur"	
	Text5 = "arrond. " & arronnr & "   " & wijk	
	Text6 = "Bus: " & bus
	Text7 = "Je kunt overstappen op Metro: " & kruist
	Text8 = "Reeds gepland " &totaal& " uur"
	over = dagplantijd - totaal
	Text9 = "Nog te plannen " &over& " uur"	
	
		bmdbackground.Initialize(LoadBitmap(File.DirAssets, main.pic))
	 	Panel1.Initialize("View")
		Panel1.Tag=nPos&"0"

			PanelHeight=135dip  'Hoogte van de view
			Label2Top=75dip

		Panel0.AddView(Panel1,0,PanelTop,scvMain.Width,PanelHeight)
		Panel1.Color=Colors.Black
		
	Dim Label1, Label2 As Label
		Label1.Initialize("View")  'Bovenste tekst
		Panel1.AddView(Label1,80dip,5dip,240dip,30dip)	'80 is van de kant // 5 is van boven 240 is de lengte 30 hoogte cel
		Label1.Color=Colors.Black
		Label1.TextSize=16
		Label1.Tag=nPos&"1"
		Label1.Text=Text1

		Label2.Initialize("View")   
		Panel1.AddView(Label2,2dip,Label2Top-5dip,240dip,30dip)
		Label2.TextSize=14
		Label2.Tag=nPos&"2"
		Label2.Text=Text2
		Label2.TextSize=14

		ImageView1.Initialize("View")    
		ImageView1.Tag=nPos&"8"
		Panel1.AddView(ImageView1,5dip,5dip,65dip,65dip)
		ImageView1.Background = bmdbackground 
		

			Dim Label3, Label4, Label5, Label6, Label7, Label8, Label9 As Label  
			
			Label3.Initialize("View")
			Panel1.AddView(Label3,80dip,30dip,240dip,60dip)
			Label3.Tag=nPos&"3"
			Label3.Text=Text3
			Label3.TextSize=13			
			
			Label4.Initialize("")	'"bezoektijd " & bezoektijd & " uur"
			Panel1.AddView(Label4,-88dip,110dip,260dip,30dip)
			Label4.TextColor = Colors.Green
			Label4.Tag=nPos&"4"
			Label4.Text=Text4
			Label4.TextSize=11
			Label4.Gravity=Gravity.CENTER
			
			Label8.Initialize("")	'"totaaltijd
			Panel1.AddView(Label8,15dip,110dip,260dip,30dip)
			Label8.TextColor = Colors.Yellow
			Label8.Tag=nPos&"8"
			Label8.Text=Text8
			Label8.TextSize=11
			Label8.Gravity=Gravity.CENTER
			
			Label9.Initialize("")	'"tijd over
			Panel1.AddView(Label9,130dip,110dip,260dip,30dip)
			Label9.TextColor = Colors.Red
			Label9.Tag=nPos&"9"
			Label9.Text=Text9
			Label9.TextSize=11
			Label9.Gravity=Gravity.CENTER	
				
			Label5.Initialize("View")	'"arrond. " & arronnr & "   " & wijk
			Panel1.AddView(Label5,80dip,50dip,240dip,30dip)
			Label5.Tag=nPos&"5"
			Label5.Text=Text5
			Label5.TextSize=13			
			
			Label6.Initialize("View")	'"Bus: "
			Panel1.AddView(Label6,2dip,Label2Top+25dip,235dip,30dip)
			Label6.Tag=nPos&"6"
			Label6.Text=Text6
			Label6.TextSize=13
			
			Label7.Initialize("View")	'' Je kunt overstappen op Metro
			Panel1.AddView(Label7,2dip,Label2Top+10dip,240dip,30dip)
			Label7.Tag=nPos&"7"
			Label7.Text=Text7
			Label7.TextSize=13			
			
		PanelTop=PanelTop+PanelHeight+1dip
	Next
	Panel0.Height=PanelTop
End Sub

Sub View_Click

'	Dim Send As View