Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint Dim f As New Font("MS 明朝", 400, FontStyle.Regular) e.Graphics.DrawString("あ", f, Brushes.Red, 10, 10) End Sub