VB Code:
SaveSettings("MyApp", "Font", "Name", CommonDialog1.FontName)
'SaveSettings("MyApp", "Font", "Size", CommonDialog1.FontSize)
'SaveSettings("MyApp", "Font", "Bold", CommonDialog1.FontBold)
'SaveSettings("MyApp", "Font", "Italic", CommonDialog1.FontItalic)
'SaveSettings("MyApp", "Font", "Underline", CommonDialog1.FontUnderline)
'SaveSettings("MyApp", "Font", "StrikeThru", CommonDialog1.FontStrikeThru)
SaveSettings("MyApp", "Font", "Color", Str(CommonDialog1.Color))
VB Code:
Text1.Text = GetSettings("MyApp", "Font", "Name", Arial)
Label1.BackColor = Val(GetSettings("MyApp", "Font", "Color", Str(vbBlack)))