求用VB语言实现图片沿窗体移动的程序

写一个程序让图片沿窗体的四周做顺时针或逆时针运动，运行后手动改变窗体大小图片自动再贴着窗体移动，图片移动是顺时针还是逆时针用单选框控制，移动速度和步伐用两个滚条控制
是做矩形运动～就是图片的边一直贴着最近的窗体的边

Dim PicMove1 As Integer

Private Sub Form_Load()
Picture1.Top = 0
Picture1.Left = 0
HScroll1.Min = 1
HScroll1.Max = 10
HScroll1.Value = 1
HScroll2.Min = 50
HScroll2.Max = 5000
HScroll2.Value = 500
Option1.Value = True
Timer1.Interval = HScroll2.Value
End Sub

Private Sub HScroll2_Change()
Timer1.Interval = HScroll2.Value
End Sub

Private Sub Timer1_Timer()
With Picture1
If Option1.Value = True Then
Select Case PicMove1
Case 0
.Top = .Top + HScroll1.Value * 15
If .Top >= Me.Height - .Height - 510 Then
.Top = Me.Height - .Height - 510
PicMove1 = 1
End If

Case 1
.Left = .Left + HScroll1.Value * 15
If .Left >= Me.Width - .Width - 150 Then
.Left = Me.Width - .Width - 150
PicMove1 = 2
End If

Case 2
.Top = .Top - HScroll1.Value * 15
If .Top <= 0 Then