coding of application VB complete