Private Sub Form_DragDrop(Source as Control...... Source.Left=(Source.Left \ 60) * 60 ' veya =(X \ 60) * 60 Source.Top=(Source.Top \ 60) * 60 ' veya =(Y \ 60) * 60 End Sub