Create VBpure_apercu.vb