Code Menampilkan kotak dialog Font

Private Sub cmbFormat_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFEffects
CommonDialog1.ShowFont
txtKata.FontName = CommonDialog1.FontName
txtKata.FontSize = CommonDialog1.FontSize
txtKata.FontBold = CommonDialog1.FontBold
txtKata.FontItalic = CommonDialog1.FontItalic
txtKata.ForeColor = CommonDialog1.Color
txtKata.FontStrikethru = CommonDialog1.FontStrikethru
txtKata.FontUnderline = CommonDialog1.FontUnderline
End Sub