重写datagrid(禁止对列宽进行拖拽)[2]

    end sub

    'usercontrol 重写 dispose 以清理组件列表。

    protected overloads overrides sub dispose(byval disposing as boolean)

        if disposing then

            if not (components is nothing) then

                components.dispose()

            end if

        end if

        mybase.dispose(disposing)