Private Sub DrawFont()
Dim fam As FontFamily
Dim fnt As Font
Dim g As Graphics
Dim brsh As System.Drawing.Brush
brsh = Brushes.DarkGreen
g = pb1.CreateGraphics
fam = New FontFamily(GenericFontFamilies.SansSerif)
fnt = New Font(fam, 12, FontStyle.Bold)
g.DrawString("Generic SanSerif bold font", fnt, brsh, 100, 138)
fnt = New Font(fam, 12, FontStyle.Italic)
brsh = Brushes.DarkViolet
g.DrawString("Generic SanSerif italic font", fnt, brsh, 100, 178)
End Sub