Dim x As IntegerPrivate Sub Form_Load()Timer1.Interval = 1000 '1秒变换一次大小Label1.AutoSize = True '控件随字体大小变换。End SubPrivate Sub Timer1_Timer()x = x + 1Label1 = "你要输入的字符窜(文字)" & x 'x是让你知道你的字有多大Label1.FontSize = xIf x > 60 Then Timer1.Enabled = False '当字大于60这么大的时候停止变大。你可以跟据你自己的意愿更换。End Sub'兄弟啊,窗体上直接变我是不
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal w