vb6 窗体全屏组件自动变化代码

'全局变量，放置在最前面
'Private FormOldWidth     As Long         '保存窗体的原始宽度
'Private FormOldHeight     As Long       '保存窗体的原始高度
' ---------------------------------------------
' Grid Resize Function
' --------------------------------------------
'按比例改变表单内各元件的大小，
Public Function ResizeFormGo(formname As Form)
    Dim Pos(4)     As Double
    Dim i     As Long, TempPos       As Long, StartPos       As Long
    Dim obj     As Control
    Dim ScaleX     As Double, ScaleY       As Double
    Dim itype As String
    
    '在调试时如果出现除数为零错误，是因为没有设定form的初值，
    '请双击form1然后再测试，这个问题绝对不会在编译好的程序中出现
       
    If FormOldWidth = 0 Then           '防止该错误的产生
        FormOldWidth = formname.ScaleWidth
        FormOldHeight = formname.ScaleHeight
    End If
    ScaleX = formname.ScaleWidth / FormOldWidth               '保存窗体宽度缩放比例
    ScaleY = formname.ScaleHeight / FormOldHeight           '保存窗体高度缩放比例
    
    On Error Resume Next
    For Each obj In formname
    
        '读取控件的原始位置与大小
        Pos(0) = obj.Left