加一个时间timer控件进行高度的判断.

肯定没效果噻，form1.height = screen.height只是一瞬间的事，且只执行一次，肉眼看不出来“滚动”的效果

条件不充分

Timer 事件这样写.

Static  K as long  '先定义一个静态变量,必须是静态变量或窗体的全局变量.
if k=0 then k = 11        '向下增加时的增量
if form1.height>screen.height then k=-11      '如果到了顶,那么 K 取负数,减少时用常数
'通过上面二行,确保K =11 或 K=-11
form1.height= form1.height + k          '修改高度.

楼主的困惑应当是对两个对象高度在什么情况下才会相等的概念没有弄清楚
你这样看哈：
新建一个窗体，添加一个按钮，在单击事件中加入以下代码：
Private Sub Command1_Click()
MsgBox Me.Height
MsgBox Screen.Height
End
End Sub

你会发现，即使窗体最大化了，Me.Height仍然不等于Screen.Height
为什么呢？因为FORM窗体对象在有标题栏的时候，Me.Height的返回值去除了标题栏和windows任务栏的高度，所以两者不可能相等，所以你想实现的开始退的进度条的事件不可能发生。
那么什么情况下Me.Height能够等于Screen.Height呢？
1）将窗体的BorderStyle属性设为0
2)程序中判断一下，去除标题栏和WINDOWS任务栏的高度

来学习了