操作方法
点击桌面上的“Visual Basic6.0”
选择“标准EXE”，单击“打开”。
分别在窗体中创建一个label控件、两个command控件、一个timer控件。
把label的caption改成“欢迎来到VB！”， command1的caption改成“手动”，command2的caption改成“自动”。
最后呈现出的效果如图所示。
双击点开编辑代码窗口。 Timer1.Enabled = FalseLabel1.Top = Label1.Top + 50If Label1.Top >= Me.Height ThenLabel1.Top = 0End IfEnd Sub Private Sub Command2_Click()Timer1.Interval = 100Timer1.Enabled = TrueEnd Sub Private Sub Form_Click()Timer1.Enabled = False End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer()Label1.Top = Label1.Top + 50If Label1.Top >= Me.Height ThenLabel1.Top = 0End IfEnd Sub
点击F5查看运行效果，点击“自动”label就会自动从上到下移动，点击“手动”便会切换成手动，在任意地方单击，label就会停止。