mybase.wndproc(m)
end sub
'检查函数
private function checklength(optional byval str as string = "") as boolean
if str = "" then
dim leng as integer = cint(me.creategraphics.measurestring(me.text, me.font).width)
dim m as integer = me.width
dim p as integer = btn.width
if leng >= m - p - 5 then
