creacion de archivo oculto

[apofis]

cuando se ejecuta el codigo para crear el archivo y hacerlo oculto,me dice que esta ya abierto

Código:

Private Sub Command1_Click()
    Open App.Path & "\x.txt" For Random As #1 Len = Len(FicheroDatos)
    'ABRE EL ARCHIVO,SI NO EXISTE LO CREA
    Get #1, 1, FicheroDatos.Valor
    SetAttr "x.txt", vbHidden
end sub

aqui dejo unas capturas de como va el proyecto

http://www.pickaloo.com/pic.php?d=03-27-08&id=3278

http://www.pickaloo.com/pic.php?d=03-27-08&id=3279

http://www.pickaloo.com/pic.php?d=03-27-08&id=3280