Question

标签从上往下移动的代码，注意当标签移出窗体后要从窗体上顶开始继续往下

Answer 1

新建工程，在表单上放置Label1和Timer1，粘贴以下代码：
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top + 10
If Label1.Top > Me.Height Then Label1.Move Label1.Left, 0
End Sub