VB代码定义控件