Change Font

[Estella]

I want to change font of all controls in a form.
how i can do this?? i can change font but just for each control not all control in a same time...
please help :)

[Jx_Man]

see this attachment :

Change Font.zip

Hope this helps...
PS: don't remove author name n comment

[debasisdas]

Try using looping through all the controls on the form that have font property.

[choudhuryshouvi]

as debasisdas said,

dim ctlcontrol as object
dim fn as string,fsize as integer

fn="comic sans ms"
fsize=10

on error goto font_mistake

for each ctlcontrol in form1.controls
   ctlcontrol.font=fn
   ctlcontrol.fontsize=fsize
next

exit sub

font_mistake:
   err.clear
   resume next

hope u'll grab some idea.

regards
Shouvik

[Estella]

thanks jx_man. its great program. and debsisdas thx for the logic.

[Jx_Man]

you're welcome