PictureBoxのAllowDropプロパティを Trueにすれば D&D(ドラッグ&ドロップ)が可能になります
D&Dを行うには 元のPictureBox1-4のMouseDownイベントで DoDragDropを使えば実行できるでしょう
' 送り手側
private Sub PictureBox_MouseDown(ByVal s as Object, byVal e as MouseEventArgs) _
Handler PictureBox1.MouseDown, PictureBox2.MouseDown,
PictureBox3.MouseDown, PictureBox4.MouseDown
Dim oPic as PictureBox = CType(s, PictureBox )
' 受け側のD&Dを許可
PictureBox5.AllowDrop = True
' D&Dを実行
oPic.DoDragDrop( oPic.Image, DragDropEffect.Copy )
End Sub
' 受けて側
Private Sub PictureBox5_DragEnter( s as Object, ByVal e as DragEventArgs )
' もしD&Dのデータがビットマップなら
if e.Data.GetDataPresent("Bitmap") then
' カーソルを変更
e.Effect = DragDropEffect.Copy
else
' カーソルを禁止マークに
e.Effect = DragDropEffect.None
end if
End Sub
Private Sub PIctureBox5_DragDrop( s as Object, ByVal e as DragEventArgs )
' もしD&Dのデータがビットマップなら
if e.Data.GetDataPresent("Bitmap") then
PictureBox5.Image = e.Data.GetData("Bitmap")
end if
End Sub
といった具合で出来そうです
エラー処理を何もしていませんの必要な箇所の修正をしましょう
字下げ(インデント)には全角スペースを使っていますので エラーになるようでしたら置換してください
