Detecting rightclick in an ActiveX Treeview control

LPARAMETERS tnButton, shift, x, y

#DEFINE MOUSE_LEFT 1
#DEFINE MOUSE_RIGHT 2
#DEFINE TwipsCalc 96*1440

IF tnButton == MOUSE_RIGHT

oNode=this.Hittest(x / TwipsCalc, y / TwipsCalc)

IF TYPE("oNode")="O" AND !ISNULL(oNode)
this.DropHighlight = oNode
WAIT WINDOW oNode.Text TIMEOUT .5
ENDIF

ELSE

DODEFAULT()

ENDIF