多谢指教，有问题呀？

Question

Private Sub Timer1_Timer()
       
    
End Sub
      如何添加代码才能使某一控件中的字体由小变大，再由大变小。假设有一控件label1.caption=hello  麻烦写一下。

Answer 1

Private Sub Timer1_Timer()
static curSize as integer
curSize = curSize + 1
label1.fontsize = curSize
if curSize >= 50 then
   curSize = 1
end if
End Sub

Answer 2

Public LbFontSize as integer
Public LbFontSizeChange as Boolean
Private Sub Timer1_Timer()
LbFontSize = Label1.FontSize
Select case LbFontSizeChange
         case False
               LbFontSize=LbFontSize+1
               label1.fontsize =LbFontSize
               if LbFontSize=50 then LbFontSizeChange=True 
         case True
               LbFontSize=LbFontSize-1
               label1.fontsize =LbFontSize
               if LbFontSize=1 then LbFontSizeChange=False
End Select
End Sub