Visual Basic - crear carpeta?

pude crear una carpeta de la siguiente manera:

Set fs3 = CreateObject("Scripting.FileSystemObject")

fs3.CreateFolder ("C:\Archivos de programa\csbd")

//////////////////////////////////////////////////////////
Pero como hago para cambiar los atributos y hacerla oculta?.
Por favor ayudenme es urgente.....

Fijate con la función FileAttr, en http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctFileAttr.asp tienes la documentación y un ejemplo.