If sr.ReadLine() = "1" Then
   settings.prox.CheckState = CheckState.Checked
Else
   settings.prox.CheckState = CheckState.Unchecked
End If

settings.prox.Checked = sr.ReadLine() = "1"

  Friend Sub Speichern(ByVal Dateiname As String)
    Dim xmlSerializer As New System.Xml.Serialization.XmlSerializer( _
      GetType(clsEinstellungen), New System.Xml.Serialization.XmlRootAttribute( _
      "Einstellungen"))
 
    Dim test1 As New IO.StreamWriter(Dateiname, False, _
      System.Text.Encoding.Unicode)
    xmlSerializer.Serialize(test1, Me)
    test1.Close()
  End Sub

_____________________________________
Overbenny

(Wer den Overlord aus C&C Generals kennt,
wei? wie mein Nick zustande kam.)