Excelente, funciona a la perfeccion, ya vi porque no me salia, Gracias.
Saludos
Saludos
![;D ;D](https://forum.elhacker.net/Smileys/navidad/grin.gif)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Dim i%, hFile
hFile = FreeFile
Open "C:\Datos.txt" For Append As #1
For i = 0 To Text1.Count - 1
Print #1, , Text1(i).Text & " " & Text2(i).Text
Next
Close #1
'En el archivo me escribe asi :
1 AAAA
2 BBBB
3 .....
for i=0 to No. de controles que tienes
Picture.item(i).BackColor = &H8000000E
Label.item(i).BackColor = &H8000000E
Label.item(i).ForeColor = &H0&
Picture.item(i).BorderStyle = 0
next
textbox.text=recordset!nombre_campo_fecha
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp"
End Sub