Sub OnLongClick(viewtag As Object) As Boolean
Dim a As Reflector, b As String, d As Object
d = Obj1.RunMethod("getHitTestResult")
a.Target = d
b = a.RunMethod("getExtra")
If b.Contains("://") Then
'making popupmenu to open the link !!!!!!!!!!
End If
End Sub