Sub positionimage(latitude As String,longitude As String)
lat=latitude
lng=longitude
Dim latn As Double=lat
Dim lngn As Double=lng
If latn=0 And lngn=0 Then
Return'ToastMessageShow(Starter.loc.Localize("Remote GPS is not ready"),True)
End If
' Dim Icon As BitmapDrawable
' Icon.Initialize(LoadBitmap(File.DirAssets, "my_icon.png"))
If m1.IsInitialized Then m1.Remove
gmap = mapfragment1.GetMap
m1 = gmap.AddMarker(latitude,longitude,"")
gmap.MyLocationEnabled=True
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(lat,lng,zoomb)
gmap.AnimateCamera(CameraPosition1)
End Sub