Evo sta ti ja preporucujem, pa ti vidi valja li:
Code:
Type tData
ch1 As Integer
ch2 As Integer
End Type
....
Command1_Click()
Dim myData As tData
myData.ch1 = CheckBox1.Value
myData.ch2 = CheckBox2.Value
Open "C:\test.txt" For Binary As #1
Put #1, , myData
Close #1
End Sub
to je za snimanje, a za citanje ide ovako:
Code:
Dim myData As tData
Open "C:\test.txt" For Binary As #1
Get #1, , myData
Close #1
CheckBox1.Value = myData.ch1
CheckBox2.Value = myData.ch2
Ja koristim ovako nesto. Naravno Type mozes da nazoves kako hoces i da mu dodas koliko god ti treba parametara.
Ako ti treba pomoc, vici!