Timer1.Initialize("Timer1", 1)
Sub Map_click
Timer1.Enabled = True ' Start Timer for scrolling screen
End Sub
Sub Timer1_Tick
Projection1=GoogleMapsExtras1.GetProjection(gmap)
MarkerLocation = BTSMarker.Position
BTSPosition = Projection1.toScreenLocation(MarkerLocation)
BTSX = BTSPosition.X
BTSY = BTSPosition.Y
MarkerLocation = LANDMarker.Position
LMPosition = Projection1.toScreenLocation(MarkerLocation)
LMX = LMPosition.X
LMY = LMPosition.Y
If (BTSIV.Left = BTSX - BTSIV.Width/2) AND (LMIV.Top = LMY - LMIV.Height/2 + pnlDispLatLng.Height) Then
Timer1.Enabled = False
Else
BTSIV.Left = BTSX - BTSIV.Width/2
BTSIV.Top = (BTSY - BTSIV.Height/2) + pnlDispLatLng.Height
LMIV.Left = LMX - LMIV.Width/2
LMIV.Top = (LMY - LMIV.Height/2) + pnlDispLatLng.Height
End If
End Sub