Private Sub Command1_Click()
Dim F As Integer
Dim sValue As String
 
F = FreeFile
Open App.Path & "\Adressbar.txt" For Input As #F
Line Input #F, sValue
Close #F
 
If sValue = 1 Then
   Text1.Enabled = True
Else
   Text1.Enabled = False
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim F As Integer
Dim sValue As String
Dim sFile As String
 
F = FreeFile
Open App.Path & "\Adressbar.txt" For Output As #F
If Check1.Value = vbChecked Then
   sValue = 1
Else
   sValue = 0
End If
Print #F, sValue
Close #F
 
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *