主题：关于滚动窗口的设计！

 你是哪里不会写？滚动这样处理。

 timertick事件

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
If lbl.top+lbl.height > 0 Then
    lbl.top -= 10
Else
    lbl.top = e.form.Controls("panel1").height
End If

http://www.foxtable.com/webhelp/scr/1301.htm