VB Code:
Dim blnFlag As Boolean
Private Sub Form_Load()
Picture1(0).Picture = LoadPicture("C:\windows\circles.bmp")
Picture1(0).AutoSize = True
Picture1(0).ScaleMode = Me.ScaleMode
End Sub
Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Load Picture1(Picture1.UBound + 1)
Picture1(Picture1.UBound).Visible = True
blnFlag = True
End Sub
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If blnFlag Then
Picture1(Picture1.UBound).Move X, Y
End If
End Sub
Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If blnFlag Then
Picture1(Picture1.UBound).Left = X
Picture1(Picture1.UBound).Top = Y
blnFlag = False
End If
End Sub