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.