Menggerakkan Form Tanpa Border

Berikut cara untuk menggerakkan Form yang sengaja tanpa / tidak diberi border. [ VB 6.0 ] Di bagian 'Form_MouseMove' ketikkan :

If Me.WindowState <> 0 Then Exit Sub

Static l As Integer, t As Integer
If Button = 1 Then
Me.Left = (Me.Left + X) - l
Me.Top = (Me.Top + Y) - t
Else
l = X
t = Y
End If

[ VB .NET ]
Di bagian 'Form1_MouseMove' ketikkan :

If Me.WindowState <> FormWindowState.Normal Then Exit Sub

Static p As Point
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left = (Me.Left + e.X) - p.X
Me.Top = (Me.Top + e.Y) - p.Y
Else
p = e.Location
End If