>*.... > Procedure oletreeview.OLEDragOver > *** ActiveX Control Event *** > Lparameters data, effect, button, shift, x, y, state > oHitTest = THIS.HitTest( x * THISFORM.nxtwips, Y * THISFORM.nytwips ) > If type("oHitTest")= "O" > This.DropHighlight = oHitTest > if !isnull(oHittest) > if y <= this.top + 150 and ; > type('oHitTest.Previous')='O' ; > and !isnull(oHitTest.Previous) > oHitTest.Previous.EnsureVisible > endif > if y >= this.top + this.height - 150 and ; > type('oHitTest.Next')='O' and !isnull(oHitTest.Next) > oHittest.Next.EnsureVisible > endif > endif > Endif >Endproc >*.... >>Cetin