Sub MarkersOverlay1_LongClick(Title As String, Description As String, Point As GeoPoint)
Dim now As Long = DateTime.now
Try
If now - Clipboard.Thumbnails.gLastTime < 2000 Then
' continue accidental multiple presses of markers:
Else
Clipboard.ClearGallery
Clipboard.ThumbnailsPan.Visible = True
ProgressDialogShow2("Multiple presses of markers", True)
DoEvents
End If
If Description.Contains("?") Then
Private words() As String
words = Regex.Split("?",Description)
If File.Exists(words(0),words(1)) Then
DoEvents
Clipboard.Thumbnails.gThumbnails.Add(words(0)&"?"&words(1)&"?"&Point.Latitude&"?"&Point.Longitude&"?"&Point.Altitude)
Dim bmp As Bitmap = LoadBitmap(words(0),words(1))
Clipboard.AddThumbnail(bmp, Clipboard.NumberOfThumbnails)
End If
ProgressDialogHide
...