Public Sub AddGroundOverlay(Bounds As Object, Image As Bitmap) As NativeObject
Dim overlay As NativeObject
overlay = overlay.Initialize("GMSGroundOverlay").RunMethod( _
"groundOverlayWithBounds:icon:", Array(Bounds, Image))
overlay.SetField("map", gm)
Return overlay
End Sub