Private Sub AddMap
gmap.Initialize("gmap", ApiKey)
Pnlmapa.AddView(gmap, 0, 0, 100%X, 100%y)
'gmap.MapType = gmap.MAP_TYPE_TERRAIN
gmap.GetUiSettings.CompassEnabled = True
gmap.GetUiSettings.MyLocationButtonEnabled = True
gmap.MyLocationEnabled = True
Dim c As CameraPosition
c.Initialize(6.249185030951583,-75.56865990535721, 14)
gmap.AnimateCamera(c)
amarker = gmap.AddMarker3(6.249185030951583,-75.56865990535721,"",LoadBitmapResize(File.DirAssets,"iconomaps.png",45,45,False))
End Sub