PictureBox

Hola Jose Luis:

Coloca 2 PictureBoxes en un form, Picture1 más grande que picture2.

Y pega este código:

Option Explicit

Private mClickX As Long
Private mClickY As Long

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Dim EsCorrecto As Boolean

EsCorrecto = True
If EsCorrecto Then
Set Source.Container = Picture1
Source.Left = X - mClickX
Source.Top = Y - mClickY
Else
MsgBox "No es correcto"
End If
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Picture2.Drag 1
mClickX = X
mClickY = Y
End Sub


En cuanto a que si es correcto o no eso lo sabrás tú según las
característricas del programa, yo solo usé una variable para ilustar el
asunto.

Saludos,
Javier

"Jose Luis Gonzalez" escribió en el mensaje
news:013201c34bcd$a879cf80$

estoy realizando un tutorial y necesito que me informen
como puedo yo hacer para arrastrar un picturebox y al
soltarlo en otro este sea incrustadosiempre y cuando sea
el correcto de lo contrario me envie un mensaje de error,
espero que me ayuden se los voy agradecer suerte y muchos
exitos.
se que lo puedo arrastras con dragmode

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.501 / Virus Database: 299 - Release Date: 14/07/2003