More VB6 example tidy-ups