تغيير فونت كل اشياء يك فرم

[aliomid]

چه جوري ميشه فونت كل اشياء درون فرم را با برنامه نويسي عوض كرد؟

[Darg]

کد:

Private Sub Form_Load()
On Error Resume Next
Dim ObjIn As Object
For Each ObjIn In Me.Controls
    With ObjIn
        .Font.Name = "Arial"
    End With
Next
End Sub

[Blossom]

راستی این for ...in دیگه چه جاهایی کاربرد داره؟ من تو فلش که خیلی ازش استفاده می کنم اما تو ویژوال بیسیک تقریبا هیچ وقت استفاده نکردم

[aliomid]

خيلي ممنون