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

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

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

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