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 :)
see this attachment :
Hope this helps...
PS: don't remove author name n comment
Try using looping through all the controls on the form that have font property.
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.
thanks jx_man. its great program. and debsisdas thx for the logic.