Create prog.vb