Question

1. 设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB”是一个字幕标签，两个命令按钮

a) 在窗体水平居中的地方放置一个标签。
b) 当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。
c) 单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。

Answer 1

设计：（图片你自己搞）

代码：

Private Sub Command1_Click() '自动

    Timer1.Interval = 200

End Sub

Private Sub Command2_Click() '手动

    Timer1.Interval = 0

    MoveLabel

End Sub

Sub MoveLabel()

    '以下 2 个 -400 是实验得出的数据

    '目的是为了 Label 飞出到飞入时看上去衔接一些

    If Label1.Top > Form1.Height - 400 Then

        Label1.Top = -400

    Else

        Label1.Top = Label1.Top + 100

    End If

End Sub

Private Sub Timer1_Timer()

    MoveLabel

End Sub

结果：

Answer 2

就是一个Label控件的Top属性修改：
窗体的ScaleMode设为3（像素）
窗体还要增加一个Timer控件，interval设为200,Enabled设为False
Timer事件中
label1.top=label1.top+10 '移动10像素
if label1.top+label1.height>me.scaleHeight then label1.top=0
自动按钮的单击事件中：
timer1.Enabled=true

手动按钮的单击事件中
timer1.Enabled=False
label1.top=label1.top+10 '移动10像素
if label1.top+label1.height>me.scaleHeight then label1.top=0