Mercury WebSevices VB6 Sample