Move Form Using Body Form VB6

Berikut ini adalah cara menyeret/drag/move form dengan body form di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Module.
2. Copy-kan coding berikut ke Module dan Form yang bertalian

          '--- Coding ini di Module...
          Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
          (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _

          As Long, lParam As Any) As Long
          Declare Sub ReleaseCapture Lib "User32" ()
          Public Const WM_NCLBUTTONDOWN = &HA1
          Public Const HTCAPTION = 2
          '--- Batas coding di Module...

          '--- Coding ini di Form...
          Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
          Dim ReturnValue As Long

            If Button = 1 Then
               Call ReleaseCapture
               ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
            End If

          End Sub
          '--- Batas coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module