MQTT Class Module For VB6

I need source code for a class module written for VB6 (Not DotNet) which can use MQTT to connect to a broker and publish and subscribe to topics. This should support the three quality of service options. Support for Last Will and Testament would be an optional requirement but not a necessity. This should use Windows API or the Microsoft OCX controls such as Microsoft Internet Transfer Control or Microsoft Winsock Control. Other options considered.