vcl sample code