始めまして、宜しくお願いします。
PictureBox1にpicMainのImageを半透明コピーをしたいのですが
-------------------------------------------------------
'PictureBox1のGraphicsオブジェクトを取得
Dim g As Graphics = PictureBox1.CreateGraphics()

'画像を読み込む
Dim img As Image = picMain.Image

'ColorMatrixオブジェクトの作成
Dim cm As New System.Drawing.Imaging.ColorMatrix()
'ColorMatrixの行列の値を変更して、アルファ値が0.5に変更されるようにする
cm.Matrix00 = 1
cm.Matrix11 = 1
cm.Matrix22 = 1
cm.Matrix33 = 0.5F
cm.Matrix44 = 1
'ImageAttributesオブジェクトの作成
Dim ia As New System.Drawing.Imaging.ImageAttributes()
'ColorMatrixを設定する
ia.SetColorMatrix(cm)
'ImageAttributesを使用して画像を描画
g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height), _
0, 0, img.Width, img.Height, GraphicsUnit.Pixel, ia)
'リソースを開放する
img.Dispose()
g.Dispose()
--------------------------------------------------------------
上記のプログラムを実行した後に Dim g As Graphics = Graphics.FromImage(picMain.Image) が実行されるとエラーで終了してしまうのですがどうすればいいのでしょうか？
ちなみにPicMainのgに対して色々描画するプログラムを組んでいます。