如何模拟一个象窗体一样的控件（标题栏、焦点、拖动、改变大小、关闭等等）[4]

    elseif (cmdback.width - x <= 60 and cmdback.height - y <= 60) then
        cmdback.mousepointer = 8
    elseif (x <= 60 and cmdback.height - y <= 60) then
        cmdback.mousepointer = 6
    elseif (y <= 60 and cmdback.width - x <= 60) then
        cmdback.mousepointer = 6
    elseif y <= 60 and x > 60 and cmdback.width - x > 60 then
        cmdback.mousepointer = 7
    elseif cmdback.height - y <= 60 and x > 60 and cmdback.width - x > 60 then
        cmdback.mousepointer = 7
    elseif x <= 60 and y > 60 and cmdback.height - y > 60 then
        cmdback.mousepointer = 9
    elseif cmdback.width - x <= 60 and y > 60 and cmdback.height - y > 60 then
        cmdback.mousepointer = 9
    end if
end sub