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.

[LMondi]

Ciò che mi lascia perplesso é che devo ripetere "Me.Controls(f).Font.Size ..." perché funzioni.
E' corretto?

[tas]

Mi sembra ci sia qualche imprecisione, credo che così il codice vada un po' meglio:

    Dim c As Control

    'Diminuisce misura e tipo di Font solo se Ris. é Maggiore:
    If sngH > sngHAtt Then
        For Each c In Me.Controls
            c.Font.Name = c.Font.Name = "Arial"
            c.Font.Size = c.Font.Size * dblRapH
        Next

    'Cambia tipo di Font solo se Ris. é Minore:
    ElseIf sngH < sngHAtt Then
        For Each c In Me.Controls
            c.Font.Size = c.Font.Size * (sngHAtt / sngH)
        Next
        Me.Refresh
    End If

Ciao

[LMondi]

Grazie per la risposta tas.
Questo tipo di codice l'avevo provato, anche perchè consigliato da MSDN, però senza esito. Mha, si vede che commettevo qualche imprecisione. Ora provo quanto hai postato.
Grazie ancora.

[LMondi]

OK, funziona.