Private Sub imgMatchingPic_DragDrop(Index As Integer, _
Source As Control, _
X As Single, _
Y As Single)
’
'Picture1(1).Picture = LoadPicture(“C:\Imagens\fig1.bmp”)
'Picture1(2).Picture = LoadPicture(“C:\Imagens\fig2.bmp”)
If imgMatchingPic(Index).Picture <> LoadPicture() Then Exit Sub
imgMatchingPic(Index).Picture = Source.Picture
imgMatchingPic(Index).Tag = Source.Tag
imgMatchingPic(Index).DragIcon = imgMatchingPic(Index).Picture
' Clear the Picture and DragIcon from the "Source" image ...
Source.Picture = LoadPicture()
Source.DragIcon = LoadPicture()
End Sub