example that uses Class: VB.NET