Sub ShowPins (et As EditText, Show As Boolean)
Dim r As Reflector
r.Target = et
r.Target = r.GetField("mEditor")
r.Target = r.RunMethod("getSelectionController")
If r.Target <> Null Then
If Show Then
r.RunMethod("show")
Else
r.RunMethod("hide")
End If
End If
End Sub