Private Sub Command1_Click()
Dim a As Control
For Each a In Form1.Controls
MsgBox TypeName(a)
Next
End Sub
Dim a As Control
For Each a In Form1.Controls
MsgBox TypeName(a)
Next
End Sub
调试欢乐多
程序运行时好像不能修改其属性你要实现什么功能呢?可以试一试其他的方法
Combo1.FontSize = 20