VB6窗体吸附类模块定义