Как перемещать label по форме - VB

Dim w, h, st
Private Sub Form_Load()
Label1.BorderStyle = 1
Timer1.Interval = 1
Timer1.Enabled = True
w = 1: h = 1: st = 40
End Sub
 
Private Sub Timer1_Timer()
If ((Label1.Left + Label1.Width + st) > Me.Width Or (Label1.Left - st) < 0) Then w = -w
If ((Label1.Top + Label1.Height + st + 400) > Me.Height Or (Label1.Top - st) < 0) Then h = -h
Label1.Left = Label1.Left + st * w
Label1.Top = Label1.Top + st * h
End Sub