VB6 TLS Implementation

I am attempting to add TLS support to my email program, and I am running into difficulty. TLS1 (Version 3.1) is quite similar to SSL3 (Version 3.0), as evidenced by the version numbers. There is a lot of information available on using SSL3 with servers that fall back to SSL2 (eg. smtp.live.com), but many other servers (eg. smtp.gmail.com) do not, and IETF is strongly encouraging users not to support SSL2 due to its security issues. If someone can direct me to TLS handshake packet structure information or VB6 code using TLS, it would be greatly appreciated.
Note: I am not interested in using CDO, as I need more control over the packets than CDO is able to provide.

J.A. Coutts