dim verschieben as boolean = false
'Hier die ursprüngliche Koordinaten
dim x as Integer
dim y as Integer
 
'Es wird hier eine Picturebox verschoben, kannste allerdings alles möglich 
' nehmen, hab ich nur wegen dem namen
 
Private Sub Picturebox1_MouseDown(Parameter...)
verschieben = true
'Koordinaten der Maus in Bezug auf das Form ermitteln, wirst du hoffentlich 
' selbst hinkriegen
End Sub
 
Private Sub Picturebox1_MouseMove(Parameter...)
if verschieben = true Then
Picturebox1.Location = New Point([X-Koordinate der Maus] - x, [Y-Koordinate der _
  Maus] - y)
End If
End Sub
 
Private Sub Picturebox1_MouseUp(Parameter...)
'Das Verschieben muss beendet werden
verschieben = false
End Sub

_______________
Meine HP: http://www.tenschman.de/