e.Graphics.DrawString(txtOriginal.Text, New Font("Courier New", 10, FontStyle.Regular), Brushes.Black, 50, 50)

after i debug it said "too many arguments to pulic sub new"(underline)
then i reduce but still same error.

You are calling the constructor of


Public Sub New( _
ByVal familyName As String, _
ByVal emSize As Single, _
ByVal style As FontStyle _
)

It is not the Font constructor problem. The number and type of parameters are valid. More of like syntax error.

Try
Dim myFont As New Font("Arial", 16)
and then pass it the the DrawString.