Sub SetCanvas3D(c_num, flag)