[VB.NET] Grafica avanzata per form

[Dust_79]

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        myFormDragging = True
        myPointClicked = New Point(e.X, e.Y)
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        myFormDragging = False
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If myFormDragging Then
            Dim aMoveToPoint As Point

            aMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
            '
            ' Adjust the position based on where you started.
            '
            aMoveToPoint.Offset(myPointClicked.X * -1, _
                (myPointClicked.Y + SystemInformation.CaptionHeight + _
               SystemInformation.BorderSize.Height) * -1)
            '
            ' Move the form.
            '
            Me.Location = aMoveToPoint
        End If
    End Sub