爆炸！~，超必杀！~ 关于800*600中开发的程序，移植到1024*768下面的整体放大处理。请问tab上面的东西怎么处理！

如题，大部分控件都可以通过程序放大，这个我已经实现了，我不是用的类库。用程序控制的

tab页也可以放大，但是tab上的空间就不能放大了，请问怎么办，还有就是菜单，toolbar也不能放大

请问该怎么做，我原来的程序如下，我是从faq上抄来的：

environment env
int ii_Screenwidth,ii_Screenheight
double WRadio,HRadio,Radio
int ii_WinBolderwidth,ii_WinBolderheight
getenvironment(env)
ii_WinBolderwidth=arwin.width - arwin.workspacewidth()//取得窗体边框的宽度
ii_WinBolderheight=arwin.height - arwin.workspaceheight()
ii_Screenwidth=env.screenwidth
ii_Screenheight=env.screenheight
//************************************************************************//
//获取需要调整的计算机分辨率**********************************************//
WRadio=ii_Screenwidth/arx //标准认为屏幕分辨率为arx*ary
HRadio=ii_Screenheight/ary//计算出屏幕相对arx*ary分辨率的变化
Radio=min(WRadio,HRadio)
if Radio=1.0 then //如果分辨率是arx*ary
return 0
end if
if (arwin.WindowType=MDIHelp!) or (arwin.WindowType=MDI!) then
arwin.resize(arwin.workspacewidth()*Radio,arwin.workspaceheight()*Radio)
return 0
else
arwin.hide()
arwin.width=(arwin.width - ii_WinBolderwidth)*Radio + ii_WinBolderwidth
arwin.height=(arwin.height - ii_WinBolderheight)*Radio + ii_WinBolderheight
int i
for i=1 to upperbound(arwin.control[])
//调整控件大小和位置
choose case typeof(arwin.control[i])
case tab!
tab mtab
mtab=arwin.control[i]
mtab.resize(mtab.width*Radio,mtab.height*Radio)
mtab.move(mtab.x*Radio,mtab.y*Radio)
mtab.textsize=mtab.textsize*Radio//设置字体大小
case commandbutton!
commandbutton cb
cb=arwin.control[i]
cb.resize(cb.width*Radio,cb.height*Radio)
cb.move(cb.x*Radio,cb.y*Radio)
cb.textsize=cb.textsize*Radio

……

end choose
next
arwin.show()
return 0
end if