i program in VB flat