Dim ox As Single, oy As SinglePrivate Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ox = X: oy = Y
Picture2.ZOrder 0End SubPrivate Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Picture2.Move Picture2.Left + X -... |