'グラフィックスオブジェクトとペンを格納する変数を定義
        Dim g As Graphics
        Dim 国語のペン, 数学のペン, 理科のペン, 枠線のペン As Pen

        g = Me.CreateGraphics
        国語のペン = New Pen(Color.Red)
        数学のペン = New Pen(Color.Green)
        理科のペン = New Pen(Color.Blue)
        枠線のペン = New Pen(Color.Black)

        'グラフの外枠を描画する
        g.DrawLine(枠線のペン, 135, 250, 135, 350)
        g.DrawLine(枠線のペン, 135, 350, 575, 350)

        'それぞれの生徒のグラフを描画する
        For i = 2 To 生徒数
            g.DrawLine(国語のペン, 90 + (i - 1) * 88, 350 - 成績(1, i - 1), 90 + i * 88, 350 - 成績(1, i))
            g.DrawLine(数学のペン, 90 + (i - 1) * 88, 350 - 成績(2, i - 1), 90 + i * 88, 350 - 成績(2, i))
            g.DrawLine(理科のペン, 90 + (i - 1) * 88, 350 - 成績(3, i - 1), 90 + i * 88, 350 - 成績(3, i))
        Next