vb6 Com example and script