Public Class settings
    Public pub_db_server As String
    Public pub_db_port As String
    Public pub_db_user As String
    Public pub_db_pass As String
    Public pub_db_datenbank As String
    Public pub_db_autoconnect As Boolean
    Public pub_einlassstelle As String
 
 
    Public Sub Save()
        Dim dataPath As String = Application.StartupPath & "\accounts.dat"
        Dim fs As Stream = New FileStream(dataPath, FileMode.OpenOrCreate)
        Dim bf As New BinaryFormatter
 
 
        bf.Serialize(fs, Me)
        fs.Close()
    End Sub
    Public Function load() As settings
        Dim dataPath As String = Application.StartupPath & "\accounts.dat"
 
        Try
            Dim fs As Stream = New FileStream(dataPath, FileMode.OpenOrCreate)
            Dim bf As New BinaryFormatter
            load = CType(bf.Deserialize(fs), settings)
            fs.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, Application.ProductName, _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function
 
 
End Class