怎样动态改变Applet的大小来适应不同的分辨率。我是这样写的，不行，为什么？？？

<HTML>
<HEAD>
<Title>江苏常熟发电有限公司实时系统</Title>
</HEAD>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--Sub window_onresize
dim nWidth,nHeight
nWidth =document.body.clientWidth
nHeight=document.body.clientHeight
if nWidth>0 And nHeight>0 Then
AppPic.width=nWidth
AppPic.Height=nHeight
End If
End SubSub window_onload
dim nWidth,nHeight
nWidth =document.body.clientWidth
nHeight=document.body.clientHeight
if nWidth>0 And nHeight>0 Then
AppPic.width=nWidth
AppPic.Height=nHeight
End If
End Sub-->
</SCRIPT>
<BODY BGCOLOR="000000" leftmargin=0 topmargin=0 scroll="no">
<CENTER><OBJECT 
    classid = "clsid:8AD9C840-044E-11D1-B3E9-00805F499D93"
    width   = 900
    height  = 650
    id     = AppPic
>
<PARAM NAME="codebase" value=".">
<PARAM NAME="archive"  value="RTSys.jar">
<PARAM NAME="code"     VALUE="SocketTree.class">
<Param Name="Port"    Value="800">
</OBJECT>
</CENTER>
</BODY>
</HTML>