VB2005での画像処理
各ピクセルの色情報を取得し，そのままコピーするプログラムです．
同じ大きさのPictureBox1とPictureBox2，それとButton1があります．
エラーや警告は出ませんが，Button1をクリックしてもまったく動きません．
最終的にはPictureBox1を画像処理してPictureBox2に結果を表示させたいのですが，そのままコピーも出来ないため原因を探しています．
A = picture1.GetPixel(i, j).ToArgb()
picture2.SetPixel(i, j, color.FromArgb(A))
ではだめなのでしょうか．ご教授ください．
-----以下プログラム------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim j As Integer
Dim A As Integer
Dim picture1 As New Bitmap(PictureBox1.Image)
Dim picture2 As New Bitmap(PictureBox2.Image)
For j = 0 To PictureBox1.Width - 1
For i = 0 To PictureBox1.Height - 1
A = picture1.GetPixel(i, j).ToArgb()
picture2.SetPixel(i, j, color.FromArgb(A))
Next
Next
End Sub
お礼
回答ありがとう 適用で止めてました＝やってみます