<Serializable()> Public Class clsSettings
 
	Public Shared frmStart As New _frmStart
 
	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 Settings As New clsSettings
 
	Public Shared Function WriteSettings() As Boolean
		Dim fs As New IO.FileStream(Application.StartupPath & "\Settings.ini", _
  IO.FileMode.Create)
		Dim xmls As New Xml.Serialization.XmlSerializer(Settings.GetType)
		xmls.Serialize(fs, Settings)
		fs.Close()
	End Function
 
	Public Shared Function ReadSettings() As Boolean
		Dim fs As New IO.FileStream(Application.StartupPath & "\Settings.ini", _
  IO.FileMode.Open)
		Dim xmls As New Xml.Serialization.XmlSerializer(Settings.GetType)
		Settings = CType(xmls.Deserialize(fs), clsSettings)
		fs.Close()
	End Function
 
End Class

Public Class frmStart
	Inherits System.Windows.Forms.Form
 
	Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnWrite.Click
		With clsMain.Settings.frmStart
			.Location = Me.Location
			.Hight = Me.Height
			.Width = Me.Width
		End With
		clsMain.WriteSettings()
	End Sub
 
	Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnRead.Click
		clsMain.ReadSettings()
		With clsMain.Settings.frmStart
			Me.Location = .Location
			Me.Height = .Hight
			Me.Width = .Width
		End With
	End Sub
 
End Class