FONT DIALOG BOX

Aim: To stimulate a Font dialog box

CODE

Form1
Private Sub cmdfont_Click()
CommonDialog1.ShowFont
With lblfont.Font
.Name = CommonDialog1.FontName
.Bold = CommonDialog1.FontBold
.Size = CommonDialog1.FontSize
.Underline = CommonDialog1.FontUnderline
End With
End Sub
Private Sub cmdstop_Click()
End
End Sub