Option Explicit

Private Sub Form_Load()
    Picture1.DragMode = 1 'Picture1のﾄﾞﾗｯｸﾞを可能にする。
End Sub

Private Sub Command1_Click()
    Picture2.Picture = LoadPicture("")
End Sub

Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If Source.Name = "Picture1" Then
        Picture1.DragIcon = Image1.Picture 'Picture1上にﾄﾞﾗｯｸﾞ中のときにDragIconを変える
    End If
End Sub

Private Sub Picture2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If Source.Name = "Picture1" Then
        Picture1.DragIcon = Image2.Picture 'Picture1上にﾄﾞﾗｯｸﾞ中のときにDragIconを変える
    End If
End Sub

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
    If Source.Name = "Picture1" Then
        Picture2.Picture = Picture1.Picture 'Picture1からPicture2にﾄﾞﾛｯﾌﾟしたときに画像を移す
    End If
End Sub