代码 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim B As New Bitmap(Me.Width, Me.Height) Using G As Graphics = Graphics.FromImage(B) G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit G.Clip = New Re…