Okay!
Jeg fandt frem til dette og det virker fremragene.
Dette er hele Form1´s kode hvor der kun er en kontrol, Check1:
'Kode-------------------------------------------------------------
Dim CheckBox1 As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
SaveSetting App.EXEName, "Options", "Tjek1", "Sand"
Else
SaveSetting App.EXEName, "Options", "Tjek1", "Falsk"
End If
End Sub
Private Sub Form_Load()
CheckBox1 = GetSetting(App.EXEName, "Options", "Tjek1")
If CheckBox1 = "Falsk" Then
MsgBox "CheckBoxen er ikke checket"
Check1.Value = 0
Else
MsgBox "CheckBoxen er checket"
Check1.Value = 1
End If
End Sub
'Kode slut--------------------------------------------------------
Mvh.... Tim Sørensen
http://dondata.adsl.dk/