Хаотическое движение объекта по форме

Public Class Form1
    Dim h As Integer = 6
    Private Sub Bt_Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Close.Click
        Me.Close()
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If PictureBox1.Left < 0 Or PictureBox1.Left >= Panel1.Width - PictureBox1.Width Then
            h = -h
        End If
        PictureBox1.Left = PictureBox1.Left + h
 
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If PictureBox1.Left < 0 Or PictureBox1.Left + PictureBox1.Width >= Panel1.Width - 20 Then
            h = -h
        End If
          PictureBox1.Left = PictureBox1.Left + h
    End Sub
 
    Private Sub Bt_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Start.Click
        Timer1.Enabled = True
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

Public Class Form1
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        With PictureBox1
            If .Top + .Height + 1 > Me.Height Then .Top = 0 Else .Top += 10
            Dim r As New Random(DateTime.Now.Millisecond + DateTime.Now.Second * 9)
            .Left = r.Next(0, Me.Width - .Width)
        End With
    End Sub
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        With Timer1
            If .Enabled Then .Stop() Else .Start()
        End With
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 500
        PictureBox1.ImageLocation = "c:\123.jpg"
    End Sub
End Class