- bukalah Program Visual Basic 6.0 dan mulailah dengan Form Baru
- aktifkan tampilan jedela Kode kemudian ketik kan perintah pendeklarasian di bawah pada bagian General Declarations.
1  option Explicit
2  Dim Move_x As Integer, Move_y As Integer
nie gan penjelasanya 1-2 perintah yang mewajibkan anda mendeklarasikan Variabel yang digunakan mendeklarasikan beberapa Variabel
-  kembali ketampilan desain Form dan klik Ganda didalam Area Form ketiklah perintah dibawah ini pada Prosedure Form_Mouse Down dan Form_MouseMove
 berikut sintaknya gan
Private sub Form_MouseDwon(Button as integer, shift as integer, X as single, Y as sngle)
           Move_x = x
           Move_y = 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 -(move_x - x)
         Me.Top = me.top - (Move_y - y)
     end if
end sub

-untuk mencoba hasilnya tekan F5 pada Keybord anda kemudian Klik drag didalam form untuk mengubah posisi