How to drag a borderless form with image

[kachan64]

Hi guys,
Today I'm going to show you what I wrote as the title.
First up, we launch vb2008 and create a new form.
Then under the 'Public Class Form1' we add

 Dim PictureBox1MouseIsDown As Boolean
    Dim PictureBox1MouseDownPoint As Point

Then PicBox Mouse Down we add:

 PictureBox1MouseIsDown = True
        PictureBox1MouseDownPoint = e.Location

PicBox Mouse Move:

 If PictureBox1MouseIsDown Then
            Me.Left += e.X - PictureBox1MouseDownPoint.X
            Me.Top += e.Y - PictureBox1MouseDownPoint.Y
        End If

PicBox Mouse Up:

PictureBox1MouseIsDown = False

That's it... Hope helps.
Any comment are welcome.