Private Sub AddMap
gmap.Initialize("gmap", ApiKey)
Panel1.AddView(gmap, 0, 0, 100%x, 100%y)
gmap.MapType = gmap.MAP_TYPE_TERRAIN
gmap.GetUiSettings.CompassEnabled = True
gmap.GetUiSettings.MyLocationButtonEnabled = True
gmap.GetUiSettings.ZoomGesturesEnabled = True
gmap.CameraPosition.Initialize(45,9,16)
End Sub