ElseIf e.Y > -1 * Band + Size.Height Then

　　Return EnumMousePointPosition.MouseSizeBottom

　　Else

　　Return EnumMousePointPosition.MouseDrag

　　End If

　　End If

　　Else

　　Return EnumMousePointPosition.MouseSizeNone

　　End If

　　End Function

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　Dim Button As New Button

　　Controls.Add(Button)

　　AddHandler Button.MouseDown, AddressOf MyMouseDown

　　AddHandler Button.MouseMove, AddressOf MyMouseMove

　　AddHandler Button.MouseLeave, AddressOf MyMouseLeave

　　End Sub

　　End Class