Create vb核心代码