Public Class Resize

    '移动了吗？

    Private IsMoving As Boolean = False

    '控件最后的宽

    Private ctrlLastWidth As Integer = 0

    '控件最后的高

    Private ctrlLastHeight As Integer = 0

    '控件原来的宽

    Private ctrlWidth As Integer

    '最后的左侧坐标

    Private ctrlLastLeft As Integer

    '最后的顶部坐标

    Private ctrlLastTop As Integer

    '控件原来的高

    Private ctrlHeight As Integer

    '控件的左侧坐标

    Private ctrlLeft As Integer

    '控件的顶部坐标

    Private ctrlTop As Integer

    '光标的左侧坐标

    Private cursorL As Integer

    '光标的顶部坐标

    Private cursorT As Integer

<