Sub AddMapTab
Dim tabIcon, tabIconselected As Bitmap
mapPanel.Initialize("")
mView.Initialize("")
mapPanel.AddView(mView,0,0,100%x, 100%y)
mView.SetZoomEnabled(True)
mView.SetMultiTouchEnabled(True)
mView.Zoom=12
mView.SetCenter(45.340633, -75.719283)
tabIcon = LoadBitmapSample(File.DirAssets, "map.png",TabWidth, TabHeight)
tabIconselected = LoadBitmapSample(File.DirAssets, "mapselected.png",TabWidth, TabHeight)
TabHost1.AddTabWithIcon2("", tabIcon, tabIconselected, mapPanel)
Log("Pause here") ' debugger breakpoint added here
End Sub