Class form1
    Dim Drag As Boolean
    Dim x2 As Integer, y2 As Integer
 
    Private Sub Picture2_MouseDown1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Picture2.MouseDown
        Drag = True
        x2 = e.X
        y2 = e.Y
    End Sub
 
    Private Sub Picture2_MouseMove1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Picture2.MouseMove
        If Not Drag Then Exit Sub
        Picture2.Left = Picture2.Left + (e.X - x2)
        Picture2.Top = Picture2.Top + (e.Y - y2)
    End Sub
 
    Private Sub Picture2_MouseUp1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Picture2.MouseUp
        Dim p As Control = DirectCast(sender, Control)
        p.Left = 32 * ((16 + p.Left) \ 32)
        p.Top = 32 * ((16 + p.Top) \ 32)
        Windows.Forms.Cursor.Clip = Nothing
        Drag = False
    End Sub
End Class