Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.PaintEventArgs) Handles _
    MyBase.Paint
    Dim big_font As New Font("Times New Roman", 60, _
        FontStyle.Bold, GraphicsUnit.Pixel)
    e.Graphics.DrawString("Antialiasing Off", _
        big_font, Brushes.Black, 10, 10)

    e.Graphics.TextRenderingHint = _
        TextRenderingHint.AntiAliasGridFit
    e.Graphics.DrawString("Antialiasing On", _
        big_font, Brushes.Black, 10, 80)
End Sub