NetShareAdd API will do what you're wanting, but I've never used it from VB.