对象变量的问题

Question

Font是VB保护字，换个变量名字。

Answer 1

你的窗体里都有什么控件？它们都有Font属性吗？如果没有当然出错了。（如按钮）

Answer 2

前面加On error resume next

Answer 3

试验成功了,这样就可以:
Public FFont As VB.Form
Public CFont As VB.ControlPublic Sub FontChange()
    On Error Resume Next
    
    For Each FFont In Forms
        For Each CFont In FFont.Controls
            CFont.FontName = "黑体"
        Next
    Next
End Sub