Events designed to modify the Form's cursor at movements during runtime.

Events.vb

Imports System
Imports System.Windows.Forms

Namespace BunifuDragForm

    Partial Public Class Form1
        Inherits Form

	Public Sub New()
	    InitializeComponent()
	End Sub

	Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
	    Me.Cursor = Cursors.SizeAll
	End Sub

	Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
	    Me.Cursor = Cursors.Default
	End Sub

    End Class
	
End Namespace