vb sample of Commerce Web Services