Public Class clsSettings
        Public Shared frmStart As New _frmStart
 
        <Serializable()> _
        Class _frmStart
            Public Location As System.Drawing.Point
            Public Hight As Integer
            Public Width As Integer
        End Class
 
    End Class
 
    Public Class clsMain
 
        Public Shared Sub WriteSettings(ByVal settings As clsSettings._frmStart)
            Dim fs As New IO.FileStream(Application.StartupPath & _
              "\Settings.ini", IO.FileMode.Create)
            Dim xmls As New Xml.Serialization.XmlSerializer(GetType( _
            clsSettings._frmStart))
            xmls.Serialize(fs, settings)
            fs.Close()
        End Sub
 
        Public Shared Function ReadSettings() As clsSettings._frmStart
            Dim fs As New IO.FileStream(Application.StartupPath & _
              "\Settings.ini", IO.FileMode.Open)
            Dim xmls As New Xml.Serialization.XmlSerializer(GetType( _
            clsSettings._frmStart))
            Dim res As clsSettings._frmStart = CType(xmls.Deserialize(fs), _
            clsSettings._frmStart)
            fs.Close()
            Return res
        End Function
 
    End Class
 
    Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With clsSettings.frmStart
            .Location = Me.Location
            .Hight = Me.Height
            .Width = Me.Width
        End With
        clsMain.WriteSettings(clsSettings.frmStart)
    End Sub
 
    Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        clsSettings.frmStart = clsMain.ReadSettings()
        With clsSettings.frmStart
            Me.Location = .Location
            Me.Height = .Hight
            Me.Width = .Width
        End With
    End Sub