我已经尝试过以下代码,但它对我没用。
Dim pen1 As New Pen(Color.Black, 1)
Dim point1 As New Point(230, 420)
Dim point2 As New Point(800, 420)
e.Graphics.DrawString("This is to certify that", New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 120, 405)
e.Graphics.DrawString(TextBox33.Text + " " + TextBox39.Text + " " + TextBox38.Text + " " + TextBox37.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 350, 400)
e.Graphics.DrawLine(pen1, point1, point2)