<Serializable()> Public Structure structsettings
        Dim projectname As String
        Dim files() As String
        Dim version As String
        Dim lastsaved As Date
        Dim settingspath As String
    End Structure
    Dim s As structsettings

 Private Sub savefile(ByVal file As String)
        s.settingspath = file
        Dim objFormatter As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim str As New System.IO.FileStream(file, IO.FileMode.Create)
        objFormatter.Serialize(str, s)
        str.Close()
    End Sub

    Private Sub loadfile(ByVal file As String)
        Dim objFormatter As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim str As New System.IO.FileStream(file, FileMode.Open)
        s = objFormatter.Deserialize(str)
        str.Close()
        updateview()
    End Sub

        <Serializable()> Public Structure structsettings
        Public WetterTentenz, Ort, LuftdruckTentenz, UVTentenz, HeuteTag, _
          HeuteNacht, HeuteTagWindrichtung, HeuteNachtWindrichtung As String
        Public Temp, Feeltemp, WetterIcon, Wind, Luftfeuchte, UV, Taupunkt, _
        HeuteNachtIcon, HeuteTagIcon, HeuteTagWind, HeuteNachtWind, _
        HeuteTagMax, HeuteNachtMin, HeuteTagRegen, HeuteNachtRegen, _
        HeuteTagFeuchte, HeuteNachtFeuchte As Integer
        Public Luftdruck, Sichtweite As Double
        Public VorschauHi(7), VorschauLow(7), VorschauIcon(7), VorschauWind(7), _
          VorschauRegen(7), VorschauLuftfeuchte(7) As Integer
        Public VorschauWetter(7), VorschauWindrichtung(7) As String
        Public Wettercodes As New ArrayList
        Public Stadt As String
        Public Wetter_Englisch As New ArrayList
        Public Wetter_Deutsch As New ArrayList
        Public Wetter_Translate As Boolean
    End Structure