实现窗体吸附和伸缩功能的VB源码