Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> _
Public Class settings
    Public pub_db_server As String
    Public pub_db_port As String
 
 
    Public Function Save()
        Dim dataPath As String = Application.StartupPath & "\accounts.dat"
        Dim fs As Stream = New FileStream(dataPath, FileMode.OpenOrCreate)
        Dim bf As BinaryFormatter
        bf.Serialize(fs, Me)
        fs.Close()
    End Function
 
End Class

    Public props As New settings

    Private Sub Haupt_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        props.pub_db_port = 3306
        props.pub_db_server = "localhost"
        props.save()
    End Sub