Option Explicit
 
Private XPic&, YPic&
 
Private Sub Form_Load()
  Me.ScaleMode = vbTwips
End Sub
 
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  XPic = X
  YPic = Y
  Image1.ZOrder vbBringToFront
End Sub
 
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  If Button = vbLeftButton Then Image1.Move Image1.Left + X - XPic, Image1.Top _
  + Y - YPic
End Sub

Gruss,

Zardoz