用VB怎么使label从上到下自动和手动移动

1、点击桌面上的“Visual Basic6.0”

2、选择“标准EXE”，单击“打开”。

3、分别在窗体中创建一个label控件、两个command控件、一个timer控件。

4、把label的caption改成“欢迎来到VB！”，command1的caption改成“手动”，command2的caption改成“自动”。

5、最后呈现出的效果如图所示。

6、双击点开编辑代码窗口。Timer1.Enabled = FalseLabel1.Top = Label1.Top + 50If Label1.Top >= Me.Height ThenLabel1.Top = 0End IfEnd SubPrivate Sub Command2_Click()Timer1.Interval = 100Timer1.Enabled = TrueEnd SubPrivate Sub Form_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer()Label1.Top = Label1.Top + 50If Label1.Top >= Me.Height ThenLabel1.Top = 0End IfEnd Sub

7、点击F5查看运行效果，点击“自动”label就会自动从上到下移动，点击“手动”便会切换成手动，在任意地方单击，label就会停止。