Private Verschieben As Boolean
Private XStart As Long
Private YStart As Long
 
Private Sub Command1_Click(Index As Integer)
Load Picture1(Picture1.Count)
Picture1(Picture1.Count - 1).Visible = True
Picture1(Picture1.Count - 1).Left = 0
Picture1(Picture1.Count - 1).Top = 0
 
End Sub
 
Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
Verschieben = True
XStart = X
YStart = Y
End Sub
 
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
If Verschieben Then
    Picture1(Index).Left = Picture1(Index).Left + X - XStart
    Picture1(Index).Top = Picture1(Index).Top + Y - YStart
End If
End Sub
 
Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
Verschieben = False
End Sub