Does anyone have code to create a shared folder with full password for windows 98 using vb6

Example. Have vb create a shared folder in called "shr1", in "c:\shrnet\" with a password "opnshr1"

Many thanks,

David