Formun İçine Picturebox Taşıma

Kod:

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 [Linkleri görebilmek için üye olun veya giriş yapın.]
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
d = 0
End Sub