How To Make A Form Shaker In Visual Basic 2008/2010

How To Make A Form Shaker in Visual Basic 2008/2010
~
Requirement:
- Button
~
Paste the codes below to your button.
~

Dim a As Integer 'Declaring integer "a"

While a < 10 'Starting a "while loop"

'Setting our form's X position to 20 'pixels to right from it's current position.
Me.Location = New Point(Me.Location.X + 20, Me.Location.Y)

'Telling a program to sleep for 50 miliseconds before 'continuing
System.Threading.Thread.Sleep(50)

'Setting our form's X position to 20 'pixels to left from it's current position.
Me.Location = New Point(Me.Location.X - 20, Me.Location.Y)

'Telling a program to sleep for 50 miliseconds before continuing
System.Threading.Thread.Sleep(50)

a += 1 'Increasing integer "a" by 1 after each loop

End While

-- DEBUG --