Kool!
>Hi Gavin, you can also do this:
>
>

>  #DEFINE tvwHorizontal 276
>  #DEFINE tvwVertical   277
>  #DEFINE tvwLeft         0
>  #DEFINE tvwRight        1
>  #DEFINE tvwUp           0
>  #DEFINE tvwDown         1
>
>  PROCEDURE OLEDragOver(toData, tiEffect, tiButton, tiShift, tiX, tiY, tiState)
>    DECLARE INTEGER SendMessage ;
>      IN User32 ;
>        INTEGER hWnd, ;
>        INTEGER wMsg, ;
>        INTEGER wParam
>
>    WITH This
>      * Scroll as needed
>      DO CASE
>      CASE BETWEEN(tiX, 0, 15)
>        SendMessage(.hWnd, tvwHorizontal, tvwLeft)
>
>      CASE BETWEEN(tiX, .Width - 20, .Width)
>        SendMessage(.hWnd, tvwHorizontal, tvwRight)
>
>      CASE BETWEEN(tiY, 0, 15)
>        SendMessage(.hWnd, tvwVertical, tvwUp)
>
>      CASE BETWEEN(tiY, .Height - 20, .Height)
>        SendMessage(.hWnd, tvwVertical, tvwDown)
>
>      ENDCASE
>    ENDWITH
>  ENDPROC
>

>
>HTH
>
>
>>Hi All,
>>
>> I have an application (VFP6.0 SP5) that uses a treeview and I want to select a node and drag it to another node that is off the screen. E.g I have to scroll up or down to reach the target node. The problem is that when I select the node to be moved and try to scroll up or down the treeview does not scroll. Does anyone have a solution for this?
>>
>>Thanks,
>>Gavin.