Sub ResizeMyForm(frmThisForm as form, tThisSize as integer)
'frmThisform is the form you want to resize
'tThissize is the size as a fraction of the screen
' so if you want half screen size then it would be 2
' so if you want qtr screen size it would be 4

frmthisform.width=(screen.width/tthissize)

course i only put the width, just addd another param for height


DocZaf
{;->