Private Sub AddMap
gmap.Initialize("gmap", Main.API_KEY_2)
pnl_gmap.AddView(gmap, 0, 0, 100%X, 100%y)
'gmap.MapType = gmap.MAP_TYPE_TERRAIN
gmap.GetUiSettings.CompassEnabled = False
gmap.GetUiSettings.MyLocationButtonEnabled = False
gmap.MyLocationEnabled = True
Msgbox(gmap.MyLocation.Latitude & " und : " & gmap.MyLocation.Longitude ,"title")
End Sub