VB demo adding <MTAThread()> fix