THIS IS AN EMPTY VB TO DERIVE FROM