求VB软件中时钟空间的用法

在TIMER的属性里把INTERVAL属性设为100
然后再Timer1_Timer()下写
Label1.Left = Label1.Left - 100
If Label1.Left < 0 Then
Label1.Left = Form1.Width
End If

添加 timer label 各一个
能让 label1 一直上下左右的移动，碰到窗体的边缘就向 反方向 移动.
Dim lr, ud As String
Private Sub Form_Load()
label1.caption="Hello"
lr = "r": ud = "u"
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Label1.Top = IIf(ud = "u", Label1.Top - 100, Label1.Top + 100) 'u:向上移动，d向下移动
ud = IIf(Label1.Top <= 0, "d", ud)
ud = IIf(Label1.Top >= Me.Height - Label1.Height, "u", ud)
Label1.Left = IIf(lr = "r", Label1.Left + 100, Label1.Left - 100) 'l:向左移动，r:向右移动
lr = IIf(Label1.Left <= 0, "r", lr)
lr = IIf(Label1.Left >= Me.Width - Label1.Width, "l", lr)
End Sub

首先添加一个控件Timer1
然后在T