'Benötigt werden: 1 PictureBox, 1 Image bei der die Index-Eigeschaft auf 0 
' gesetzt ist.
Option Explicit
Private XPos%, YPos%, TwX%, TwY%
 
Private Sub Form_Load()
  Dim i%, j%, k%, N%
  Me.ScaleMode = 3
  Me.WindowState = 2
  TwX = Screen.TwipsPerPixelX
  TwY = Screen.TwipsPerPixelY
  N = 0
  With Picture1
  .ScaleMode = 3
  .AutoRedraw = True
  .Move 0, 0, 50, 40
  .Cls
  For i = 0 To 5
    For j = 0 To 5
      If N > 0 Then Load Image1(N)
      .BackColor = Rnd * vbWhite
      For k = 1 To 30
        Picture1.Line -(.ScaleWidth * Rnd, .ScaleHeight * Rnd), Rnd * vbWhite
      Next k
      With Image1(N)
      Set .Container = Picture1
      .BorderStyle = 1
      .MousePointer = 15
      .Move 4 + i * 60, 4 + j * 50
      Set .Picture = Picture1.Image
      .Visible = True
      End With
      N = N + 1
    Next j
  Next i
  .AutoRedraw = False
  .BackColor = RGB(200, 200, 200)
  .Move 10, 10, 500, 500
  End With
End Sub
 
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
  XPos = X
  YPos = Y
  Image1(Index).ZOrder
End Sub
 
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
  With Image1(Index)
  .Move .Left + (X - XPos) / TwX, .Top + (Y - YPos) / TwY
  End With
End If
End Sub