不知道你是要改变控件高度还是字体大小。
注意:如果是改变字体大小的话，要设置label 的autosize 属性为 true
Private Sub Command1_Click()' Label1.Height = Label1.Height * 4 '改变控件高度 Label1.Font.Size = Label1.Font.Size * 4 '改变字体大小End Sub
