Private Sub AddMap
gmap.Initialize("gmap", miclase.api_key)
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
Sleep(400)
Try
Latitud2 = gmap.MyLocation.Latitude
longitud2 = gmap.MyLocation.Longitude
amarker = gmap.AddMarker3(6.249185030951583,-75.56865990535721,"",LoadBitmap(File.DirAssets,"iconomaps2.png"))
Catch
Latitud2 = 6.249185030951583
longitud2 = -75.56865990535721
amarker = gmap.AddMarker3(6.249185030951583,-75.56865990535721,"",LoadBitmap(File.DirAssets,"iconomaps2.png"))
End Try
Dim c As CameraPosition
c.Initialize(Latitud2,longitud2, 17)
gmap.AnimateCamera(c)
gmap.SetLayoutAnimated(0, 1, 0, 0, Pg.RootPanel.Width,Pg.RootPanel.Height)
End Sub