Option Explicit
 
Dim xOrgForm As Long
Dim yOrgForm As Long
Dim xPic As Long
Dim yPic As Long
 
Private Sub pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    If Button = vbLeftButton Then
        xOrgForm = Form1.Left
        yOrgForm = Form1.Top
        xPic = X
        yPic = Y
        Me.MousePointer = vbCrosshair
    End If
End Sub
 
Private Sub pic_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
    If Button = vbLeftButton Then
        Me.Left = xOrgForm + X - xPic
        Me.Top = yOrgForm + Y - yPic
        Me.MousePointer = vbDefault
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1