如题，请教各位？

1.自订Label控件～Label字体有变化～Label窗口大小跟着变～比例要自行Try～
写在 UserControl_Resize()事件中～

2.不自订Label控件～Label字体有变化～Label窗口大小跟着变～比例要自行Try～
写在独立的Sub() or Function()中～一变就Call～

能说清楚点？

也想过写在Form_Rrsize()里面～不过....
印象中Form_Rrsize()好像在Form的设定值被改变时触发～
如果Form没改变～光Label字体改变了～不就没效果了?
要试试才知道～

我现在的问题是窗体上的控件除了Label字体没有随着改变，其它的都可以。

说的越来越复杂～也许你要的只是这个～

Option Explicit

Private FormOldWidth As Long
'保存窗体的原始宽度
Private FormOldHeight As Long

'保存窗体的原始高度
'在调用ResizeForm前先调用本函数
Private Sub ResizeInit(FormName As Form)
Dim Obj As Control

    FormOldWidth = FormName.ScaleWidth
    FormOldHeight = FormName.ScaleHeight
    
On Error Resume Next
    
    For Each Obj In FormName
        Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
    Next Obj

 
On Error GoTo 0

End Sub

'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Private Sub ResizeForm(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

    ScaleX = FormName.ScaleWidth / FormOldWidth
    '保存窗体宽度缩放比例
    ScaleY = FormName.ScaleHeight / FormOldHeight
    '保存窗体高度缩放比例
    
On Error Resume Next

    For Each Obj In FormName
        StartPos = 1
        
        For i = 0 To 4
            '读取控件的原始位置与大小
            TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
            If TempPos > 0 Then
                Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                StartPos = TempPos + 1
            Else
                Pos(i) = 0
            End If
            
            '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
            Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
        Next i
        
    Next Obj
    
On Error GoTo 0

End Sub

'开发软件时候,把这个modal装入程序中.然后加入如下代码:
Private Sub Form_Load()
    Call ResizeInit(Me) '在程序装入时必须加入
End Sub

Private Sub Form_Resize()
    Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub

我说的是Label1控件中的字体没有随着窗体的缩小而字体自动缩小，（字体自动分为两行，字体大小没有改变）

把上面代码稍微修改一下就行了～

....
    Next i
    '=>插入代码
Next Obj
...


例如：
if instr(obj.name,"Label")<>0 then
    XXXXXXX    '依条件变更Label字型大小～
end if

label的font属性里面字体最大就是72
那么放大之后 能比72大吗？