個人記事

Private Function DrawText_3(Optional ByVal x1 As Integer = 0, Optional ByVal y1 As Integer = 0) As Bitmap
    Dim TextBitmap As New Bitmap(PictureBox1.Width, PictureBox1.Height)
    'Dim TextBitmap As New Bitmap(PictureBox1.Image)

    Dim Brush As New SolidBrush(Color.Chocolate)

    Dim SelectedFont = New Font("細明體", 13)
    x = 0

    Using Graphic = Graphics.FromImage(TextBitmap)

      For a1 = 0 To FR.Length - 1
        Graphic.DrawString(FR(a1), SelectedFont, Brushes.Black, x, y1)

        x += 20
      Next

    End Using

    Return TextBitmap
  End Function

'===============
PictureBox1.Image = DrawText_3()