我作了一个标签..然后在代码处打上的.
Private Sub Label1_Click()
Label1.FontSize = 32
End Sub
来改变字体的大小..运行以后点下标签果然大小改变了..但我想学下加什么代码能让字体的大小再变化..就是点一次变一次

[此贴子已经被multiple1902于2007-9-4 20:45:50编辑过]

Label1.FontSize =Label1.FontSize+2

以前收集到的一些代码。自己参照 看下。。
Dim r, g, b As Integer

Private Sub Form_Load()
r = 192
g = 192
b = 192
Timer1.Enabled = True
Timer2.Enabled = False
Label1.Left = 3500
Label1.Top = 2500
End Sub

Private Sub Timer1_Timer()
If r < 255 Then
r = r + 1
Else
r = 255
End If

If g > 3 Then
g = g - 3
Else
g = 0
End If

If b > 3 Then
b = b - 3
Else
b = 0
End If

Label1.FontSize = Label1.FontSize + 0.75
Label1.ForeColor = RGB(r, g, b)
Label1.Left = 3500 - Label1.Width / 2
Label1.Top = 2500 - Label1.Height / 2
If Label1.FontSize >= 72 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
If r > 192 Then
r = r - 1
Else
r = 192
End If

If g < 192 Then
g = g + 3
Else
g = 192
End If

If b < 192 Then
b = b + 3
Else
b = 192
End If

Label1.FontSize = Label1.FontSize - 0.75
Label1.ForeColor = RGB(r, g, b)
Label1.Left = 3500 - Label1.Width / 2
Label1.Top = 2500 - Label1.Height / 2
If Label1.FontSize <= 8 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub