تعديل على الكود - نسخة قابلة للطباعة

PHP كود :

Private bool_0 As Boolean
    Private point_0 As Point
    Private Sub Panel4_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel4.MouseDown
        Me.bool_0 = True
        Me.point_0 = e.Location
    End Sub

    Private Sub Panel4_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel4.MouseMove
        If Me.bool_0 Then
            Dim point As Point = MyBase.PointToScreen(e.Location)
            MyBase.Location = New Point((point.X - Me.point_0.X), (point.Y - Me.point_0.Y))
        End If
    End Sub

    Private Sub Panel4_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel4.MouseUp
        Me.bool_0 = False
    End Sub 