Private Sub IDnaloga_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) DropDetect Me, Me![IdNaloga], Button, Shift, X, Y End Sub