[VB6] Verificare se un oggetto ha propietà FONT

[Vegait]

Esitono anche Oggetti che hanno un font su un altro livello per esempio TDBGrid della ComponentOne.

TDBGrid1.Columns.item(0).font

In questo caso riusciresti soltanto con la soluzione precedente

Dim ctrl As Control
Dim v as Variant
For Each ctrl In Me.Controls
    If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Then
        ctrl.Font = "Arial"
    ElseIf TypeOf ctrl Is TDBGrid Then
        For Each v In ctrl.Columns
            v.Font = "Arial"
        Next
    End If
Next