How to drag a borderless form with image

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

Code:

---

Dim PictureBox1MouseIsDown As Boolean
    Dim PictureBox1MouseDownPoint As Point

---

Then PicBox Mouse Down we add:

Code:

---

PictureBox1MouseIsDown = True
        PictureBox1MouseDownPoint = e.Location

---

PicBox Mouse Move:

Code:

---

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

---

PicBox Mouse Up:

Code:

---

PictureBox1MouseIsDown = False

---

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