Dim sol, ust, d
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sol = X
ust = Y
d = 1
'okxd®2004
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And d = 1 Then
With Picture1
.Left = .Left + X - Val(sol)
.Top = .Top + Y - Val(ust)
End With
End If
'okxd®2004 www.vbornek.com
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
d = 0
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sol = X
ust = Y
d = 1
'okxd®2004
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And d = 1 Then
With Picture1
.Left = .Left + X - Val(sol)
.Top = .Top + Y - Val(ust)
End With
End If
'okxd®2004 www.vbornek.com
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
d = 0
End Sub
