VB example to show the idea of classes