Visual Basic - Abrir archivo oculto

Hola:

Tengo un form con un drive, dir y filelist que me lista todos los archivos (incluidos los ocultos). Al seleccionar el archivo en el filelist, abre su contenido en un text1.

El caso es que los de extensión *.txt me los abre en el text1 sin problemas, pero al intentar abrir los ocultos, por ejemplo los de extensión *.ini, me dice que no encuentra el archivo.

Este es mi código:
Private Sub Dir1_Change()
File1 = Dir1
File1.System = True
File1.Hidden = True
End Sub

Private Sub File1_Click()
Drive1.Visible = False
Dir1.Visible = False
File1.Visible = False
Text1.Visible = True
Dim fn
fn = FreeFile
Open Dir1 & File1.FileName For Input As fn
Text1.Text = Input$(LOF(fn), fn)
Close fn
End Sub

Private Sub Form_Load()
Dir1 = Drive1
End Sub

Private Sub Label1_Click()
Drive1.Visible = True
Dir1.Visible = True
File1.Visible = True
End Sub

¿Que puede pasar? ¿como modifico el código para que abra el contenido de un *.ini en el text para poder modificarlo?.

Gracias.

Hola prueba a poner en tu codigo donde dice:

Private Sub Dir1_Change()
File1 = Dir1
File1.System = True
File1.Hidden = True
End Sub


AGREGA ESTAS lineas:

File1.Archive = True
File1.Normal = True
File1.ReadOnly = True

************

con esas lineas veras los .ini

salu2