■No33855に返信(K-1さんの記事) > GrpWrite = Graphics.FromImage(BmpWrite) > GrpWrite.DrawLine(New Pen(Color.Black, 1), 0, 320, 640, 320) ここは Using GrpWrite = Graphics.FromImage(BmpWrite) GrpWrite.DrawLine(Pens.Black, 0, 320, 640, 320) : End Using もしくは Using GrpWrite = Graphics.FromImage(BmpWrite), P As New Pen(Color.Black, 1) GrpWrite.DrawLine(p, 0, 320, 640, 320) : End Using にすべきかと思います。