Explain Complie error

You can of course just iterate all the controls on the form as in;

' Change font size too!
SetFontSize (x_size)

End Sub
Private Function SetFontSize(x_size) As Integer
Dim ctrl As Control

If Int(x_size) > 0 Then
' Change font size
SetFontSize = Int(x_size *
x_size = SetFontSize

For Each ctrl In Me.Controls
ctrl.Font.Size = x_size
Next
End If

End Function


Cheers
TonyS.