Sample VB.Net code