在VB6.0中，有label 、command 标签，怎么设置使其上面的文字大小随着控件大小的调整而改变。

在运行状态下,设置控件的 Font中的Name 及Size 属性就可以设置其字体名称及大小
如:
Command1FontName="宋体"
Command1FontSize="30"

LabelFontName = "楷体_GB2312"
Label1FontSize = "30"

我想，你是想自己设计一个控件，然后给控件添加 Font 对象属性
以下代码全部在控件模块中：
Private WithEvents mFont As StdFont '定义字体对象改变时触发的事件
Private Sub mFont_FontChanged(ByVal PropertyName As String)
'在运行程序使用代码更改属性时，调用本过程
'Call 刷新本控件 '调用你自己的控件界面过程，用新的字体重绘控件
End Sub
Public Property Get Font() As StdFont
Set Font = UserControlFont
End Property
Public Property Set Font(vNewValue As StdFont)
'当用户在属性窗口更改属性时，调用本过程
Set UserControlFont = vNewValue
'Call 刷新本控件 '调用你自己的控件界面过程，用新的字体重绘控件
End Property
'为该对象的每个属性添加 ReadProperties 和 WriteProperties 语句
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
FontName = PropBagReadProperty("FontName", "宋体")
FontSize = PropBagReadProperty("FontSize", 9)
'还可以添加有关粗体等内容
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBagWriteProperty "FontName", FontName, "宋体"
PropBagWriteProperty "FontSize", FontSize, 9
'还可以添加有关粗体等内容
End Sub

---