表单form1中按钮command1,
如何单击command1，实现表单滚动，且command1显示在表单form1的最顶端。（就像手动拉动滚动条一样的效果）

点击表单滚动条就好了，还能省个按钮。

想实现一边向下填写内容，一边自动向下翻，不要需要手动且滚动距离可设置

[此贴子已经被作者于2020-1-15 14:23编辑过]

滚动条消息
WM_VSCROLL 垂直滚动
WM_HSCROLL 水平滚动

这是什么，不知从哪入手

是不是这意思，点击cmd
DECLARE LONG SendMessage IN User32 LONG, LONG, LONG, LONG
of = CREATEOBJECT("_form")
of.show(1)
RETURN

DEFINE CLASS _form as Form
    ScrollBars = 3
    ADD OBJECT cmd as commandbutton WITH top=10,left=10
    ADD OBJECT text1 as textbox WITH top=100
    ADD OBJECT text2 as textbox WITH top=1000
    PROCEDURE cmd.click
        SendMessage(thisform.hWnd, 0x0115,1,0)
        this.Top = this.Top + thisform.VScrollSmallChange
    ENDPROC
ENDDEFINE

学习
SendMessage(thisform.hWnd, 0x0115,1,0)
当一个窗口标准垂直滚动条产生一个滚动事件时发送此消息给那个窗口，也发送给拥有它的控件

二楼之言深合吾意，使用表单流动条，简单又方便

是表单内容太多，可以用以下方法吗？
x=thisform.spinner1.value
FOR i=1 TO thisform.Objects.Count
thisform.Objects(i).top= thisform.Objects(i).top-x
endfor
但要设一个全局变量n，保存移动的次数。在表单的双击（或其它不常用的）事件中加入
FOR i=1 TO thisform.Objects.Count
thisform.Objects(i).top= thisform.Objects(i).top+x*n
endfor
用以恢复位置。