Position of a window is changing as some event occurs

See more:

VB

Hello,
I have developed a snake game in vb.net. everything is working fine but when the increasing snake touches the mouse in a field then the whole window position of a game is changing. Please help me by telling why this is happening.

I am giving the code after encountering which i get a changing position of window problem.

If snake(0).Bounds.IntersectsWith(mouse.Bounds) Then

           LengthenSnake()
           mouse.Top = r.Next(Pb_Area.Top, Pb_Area.Bottom - 25)
           mouse.Left = r.Next(Pb_Area.Left, Pb_Area.Right - 25)

           scoreSnake += 1
           score.Text = scoreSnake * 100
           Me.Controls.Add(mouse)
           mouse.BringToFront()
       End If

When this code is executed and when if condition is true, the length of a snake id increased in a lengthenSnake(). but while the position of my application changes. Why it is happening? Please help me out.


Here is lengthenSnake()

Private Sub LengthenSnake()
       length_of_snake += 1
       snake(length_of_snake) = New PictureBox
       With snake(length_of_snake)
           .Width = 10
           .Height = 10
           .BackColor = Color.White
           .Top = snake(length_of_snake - 1).Top
           Left = snake(length_of_snake - 1).Left + 10
       End With

       Me.Controls.Add(snake(length_of_snake))
       snake(length_of_snake).BringToFront()
   End Sub