Drag Form Tanpa Harus pada Title Bar

Deskripsi : Tips berikut ini adalah bagaimana men-Drag Form tanpa harus pada Title Bar

'****************************************
'* Drag Form Tanpa Harus pada Title Bar *
'****************************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'Koding di Form
'--------- Batas Awal ----------
Option Explicit
Dim drag_horizontal, drag_vertikal As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
drag_horizontal = X
drag_vertikal = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.Left = Me.Left - (drag_horizontal - X)
Me.Top = Me.Top - (drag_vertikal - Y)
End If
End Sub
'--------- Batas Akhir ----------