[Dardery]

يمكن وضع الكود بأكمله في أي مكان بين

PHP كود :

Public Class Form1 


و

PHP كود :

End Class 


يمكن وضعه أسفل السطر الأول تماماً هكذا

PHP كود :

Public Class Form1
    Private MouseOffset As Point
    Private IsLeftButtonDown As Boolean = False

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseDown
        Dim xOffset As Integer
        Dim yOffset As Integer
        If e.Button = MouseButtons.Left Then
            xOffset = -e.X - SystemInformation.FrameBorderSize.Width
            yOffset = -e.Y - SystemInformation.CaptionHeight - SystemInformation.FrameBorderSize.Height
            MouseOffset = New Point(xOffset, yOffset)
            IsLeftButtonDown = True
        End If
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseMove
        If IsLeftButtonDown Then
            Dim MousePosition As Point = Control.MousePosition
            MousePosition.Offset(MouseOffset.X, MouseOffset.Y)
            Location = MousePosition
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Form1.MouseUp
        If e.Button = MouseButtons.Left Then
            IsLeftButtonDown = False
        End If

    End Sub 
End Class