VB实现的千千静听风格自动磁性吸附窗口