Amigos:

Estoy intentado almacenar el valor de un checkbox de manera muy engorrosa, pero no logra dar con el error, paso a explicar el cogido, así se el form:



así funciona, espero se entienda:

al presionar el checkbox se genera un archivo de texto con el valor marcado:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Dim fnum As Integer
 
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Print #fnum, "1"
Close fnum 'se cierra el archivo
Else
 
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Print #fnum, "0"
Close fnum 'se cierra el archivo
End If
End Sub

Luego al iniciar el programa, intento cargar el valor del C:\Archivo.txt en un textbox y luego intento marcar el checkbox leyendo el valor del Text1 y poder marcar el checkbock con este código:

Private Sub Form_Load()
   Dim foo As Integer
 
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo
 
If Text1.Text = "1" Then
   MsgBox "1"
Check1.Value = 1
    Else
   MsgBox "0"
Check1.Value = 0
    End If
    End Sub
 

El problema es que siempre me sale el mensaje del valor 0, y no logro hacerlo funcionar.

Alguna idea del por que se genera este error??

gracias amigo

hola amigos tengo un problema con el treeview busque pero no encontre nada hace horas asique decidi preguntar

estoy manipulando una coleccion de una base de datos y esta todo OK, agrego, edito, muestro
la cosa es cuando quiero eliminar un NODO hijo, puedo borrar el padre pero me borra todo yo solo quiero borrar un hijo.