private static extern uint NetShareAdd(

Declare Unicode Function NetShareAdd Lib "netapi32.dll" ( _

    uint result = NetShareAdd(server, 502, ref info, out error);

retval = NetShareAdd(ServerName, 2, shi2, Nothing)