Sul CD di VB6 c'è un esempio, puoi fare riferimento a quello:
Common\Tools\VB\Unsupprt\SSaver

(3° CD del Visual Studio 6.0 EE, oppure 1° CD della versione PRO)

Ciao