请教？

[fengyunxian]

Private Sub Timer1_Timer()
end sub
有一frame控件，有一label控件，怎样使label 中的字体由小变大时字体总是处于frame的正中央

[射天狼]

Private Sub Label1_Change()
'Label的AutoSize属性必须为True
Label1.Move (Frame1.Width - Label1.Width) / 2, (Frame1.Height - Label1.Height) / 2
End Sub

[wangchong]

你可以这样做：
把label的autosize的属性设置为True, 在label的resize事件中得到label的长和宽。
在利用frame的长和宽来计算出label处于中央时的top和left,这样不就解决了。至于怎么
计算不用我说了吧！ 呵呵！！

[wangchong]

刚看到，怎么计算cuizm(射天狼) 已经说出来了！

[haipingma]

Dim i As Integer

Private Sub Timer1_Timer()
Label1.FontSize = 9 + i
Label1.Top = (Frame1.Height - Label1.Height) / 2
Label1.Left = (Frame1.Width - Label1.Width) / 2
i = i + 1
End Sub