Dim obj2 As Image Dim i As Integer Dim xx As Integer Dim yy As Integer Dim drag As Boolean Private Sub Image1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) If drag = False Then xx = ScaleX(X, vbTwips, ScaleMode) yy = ScaleY(Y, vbTwips, ScaleMode) drag = True End If End Sub Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single) drag = False End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) i = i + 1 Set obj2 = Controls.Add("VB.Image", "Image2" & i) obj2.Left = X - xx obj2.Top = Y - yy obj2.Width = Image1.Width obj2.Height = Image1.Height obj2.BorderStyle = Image1.BorderStyle obj2.Stretch = Image1.Stretch obj2.Picture = Image1.Picture obj2.Visible = True drag = False End Sub