Private Function Doc_onclick() As Boolean
If Doc.activeElement Is Nothing Then
Exit Function
Else
If Doc.activeElement.Id <> "" Then
Select Case Doc.activeElement.Id
Case "mapsite1"
'call 你对地点一的操作
Case "mapsite2"
'call 你对地点二的操作
end select
end if
end if
Doc_onclick = True
End Function