program codes for VB visual studio