VB6 - Me.Controls

[LMondi]

Ho provato in diversi modi, così funziona. Però vorrei il Vs. parere se, il seguente codice, è migliorabile:

'Diminuisce misura e tipo di Font solo se Ris. é Maggiore:
    If sngH > sngHAtt Then
        For f = 0 To Me.Controls.Count - 1
            Me.Controls(f).Font.Name = Me.Controls(f).Font.Name = "Arial"
            Me.Controls(f).Font.Size = Me.Controls(f).Font.Size * Format(dblRapH, "#,##0.0")
        Next f
            'Cambia tipo di Font solo se Ris. é Minore:
            ElseIf sngH < sngHAtt Then
                For f = 0 To Me.Controls.Count - 1
                    Me.Controls(f).Font.Size = Me.Controls(f).Font.Size * Format((sngHAtt / sngH), "#,##0.0")
                Next f
        Me.Refresh
    End If

Grazie per la collaborazione.