Private x As Integer
Private Sub Form_Load()
x = 8
End Sub
Private Sub Command1_Click()
For n = 0 To 2
Label1(n).FontSize = x
Next
x = x + 1
If x > 36 Then
MsgBox ("maximum size reached")
End If
End Sub
Private Sub Command2_Click()
For n = 0 To 2
Label1(n).FontSize = x
Next
x = x - 1
If x < 8 Then
MsgBox ("minimum size reached")
End If
End Sub