VB_Bottle&Type