F
Fatew
Private Sub font_Click()
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontArial = CommonDialog1.FontArial
End Sub
почему-то выдает ошибку,что может быть неправильно?
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontArial = CommonDialog1.FontArial
End Sub
почему-то выдает ошибку,что может быть неправильно?