探した所先のURLの If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose() End If
実際は上記を参考に下記の様に書き開けてます Dim Rbox() As Global.System.Windows.Forms.RichTextBox = {RichTextBox1, RichTextBox2, RichTextBox3, RichTextBox4, RichTextBox5} Dim bmp = CreateBitmapFromControl(Rbox(PageNo)) If PictureBox16.Image IsNot Nothing Then ' PictureBox16.Image.Dispose() End If PictureBox16.Image = bmp 'ピクチャ１−1５へ各個転送 Dim Picture() As PictureBox = {PictureBox1, PictureBox2, PictureBox3, ・・・・・PictureBox15} Picture(PageNo).Image = PictureBox16.Image
