Hallo,
ich würde gerne eine Picturebox während der Runtime mit der Maus verschieben,
d.h: Wenn die linke Maustaste gehalten wird, dann verschiebt sich die Picture Box mit dem Mauszeiger.
Danke für eure Hilfe
Pascal
Hi Pascal,
da mußt Du ein wenig rechnen. 
Verwende das Mousdown Ereignis um Dir die Stelle zu merken, die angeklickt wurde. Im Moausmove Ereignis berechnest Du die Differenz zum angeklickten Punkt und verschiebst die Box um diesen Betrag. Die Differenz ist danach wieder Null und es passt.
Am bequemsten geht das, wenn Du Scalemode auf Pixel stellst.
Gruß, Rainer
Quellcode
Hi,
ich hab’s mal ‚gebastelt‘.
Option Explicit
Dim mx As Long
Dim my As Long
Private Sub Picture1\_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mx = X
my = Y
End Sub
Private Sub Picture1\_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Left = Picture1.Left + (X - mx)
Picture1.Top = Picture1.Top + (Y - my)
End If
End Sub
Gruß, Rainer