change fonts for all items

need help..

i need a code or function that changes all the fonts size and name.... on all items including grids




thanks is advance
luel


Life is full of treachery and lies...

Use a For ... Each loop in your Form Load as follows:


dim aControl as Control
on error resume next
for each aControl in me.Controls
aControl.Font.Size = 12
next
on error Goto 0