Хотелось бы чтобы шрифт менялся во всех формах проекта и объекткх формы. Возможно ли это сделать через CommonDialog? Если да то как? Вылетает окно шрифтов, выбираю шрифт, нажимаю нао ОК ничего не происходит. То же с печатью.

блин, жопа. опять париться с циклами и массивами.

Помогите, пожалуйста, хочу менять шрифт у массива поле меток. Что я не так делаю? Вот мой код:
Первая форма:
Private Sub Шрифт_Click()
Dialog1.ShowFont
FormYear.shrift_formy_goda
End Sub
Вторая форма:
Public Sub shrift_formy_goda()
Dim i As Integer
For i = Dekabr_lbl(0) To Dekabr_lbl(41)
Dekabr_lbl(i).Font = MainForm.Dialog1
Next
End Sub

Дисашрифт это объект и надо использовать Set Dekabr_lbl(i).Font = MainForm.Dialog1.font
Dialog1.font - выделяет font и пишет method or data not found(
Я в отчаянии, Как сделать, чтобы шрифт менялся????

Всё я разобрался. Может кому-ть пригодится. Надо было сделать так:
Function shrift_mesjaca()
Dim i As Integer
For i = FormMounth.Label.LBound To FormMounth.Label.UBound 'ïåðåáèðàåì âñå ýë-òû ìàññèâà
FormMounth.Label(i).FontBold = MainForm.Dialog1.FontBold
'áåð¸ì çíà÷åíèå æèðíîãî øðèôòà èç CommonDialog
FormMounth.Label(i).FontItalic = MainForm.Dialog1.FontItalic
'áåð¸ì çíà÷åíèå êóðñèâà èç CommonDialog
FormMounth.Label(i).FontName = MainForm.Dialog1.FontName
'áåð¸ì çíà÷åíèå èìåíè øðèôòà èç CommonDialog
FormMounth.Label(i).FontSize = MainForm.Dialog1.FontSize
'áåð¸ì çíà÷åíèå ðàçìåðà øðèôòà èç CommonDialog
FormMounth.Label(i).FontStrikethru = MainForm.Dialog1.FontStrikethru
'áåð¸ì çíà÷åíèå çà÷¸ðêíóòîãî øðèôòà èç CommonDialog
FormMounth.Label(i).FontUnderline = MainForm.Dialog1.FontUnderline
'áåð¸ì çíà÷åíèå ïîä÷¸ðêíóòîãî øðèôòà èç CommonDialog
Next
End Function