Question

为什么这段代码无法实现标签在窗体上的上下移动？

If Label2.Top + Label2.Height > 0 Then
Label2.Move Label2.Top - 300
Else
Label2.Top = Me.ScaleHeight
End If

Answer 1

加入计时器控件
Private Sub Timer1_Timer()
If Label2.Top > -Label2.Height Then
Label2.Top = Label2.Top - 100
Else
Label2.Top = Me.Height
End If

End Sub

追问

那实现自左向右移动呢

追答

Private Sub Timer1_Timer()
If Label2.Left < Me.Width Then
Label2.Left = Label2.Left + 100
Else
Label2.Left = -Label2.Width
End If

End Sub
其实这种题型你可以在脑中模拟一下
left属性就是标签距离窗体左边界的距离
top属性就是标签距离窗体上边界的距离
怎么移动，你可以想象在移动过程中改变了那些属性的值，这样就容易做了