VB进行子类化