Form Taşıma

Formun üzerinden tutup taşıyacağız. Formunuza 1 adet Panel ekleyin.
Panel in dock özelliğini Fill seçin veya Panel in sağ üstündeki oka tıklayıp Panel
Task ten seçin. Böylece Panelin formun tümünü kaplamasını sağladık.
Aşağıdaki kodları panel in mousedown yordamına yazın.

Public Class Form1
    Const i As Integer = &HA1
    Const j As Integer = 2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then

            Panel1.Capture = False

            Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)

            Me.DefWndProc(msg)

        End If

    End Sub
End Class

Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN