vb常用内部函数