Public Class Variablen
    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 Class

   <Serializable()> Public Structure structsettings
        Dim v As Variablen
    End Structure
    Public s As structsettings

   With child_Wettervorschau
            .MdiParent = Me
            .Show()
            .Text = "Wettervorschau"
        End With