<Serializable()> Public Class Users
    Public Sub New(ByVal Vorname As String, ByVal Nachname As String, ByVal _
      Setting As Settings)
        Me.Vorname = Vorname
        Me.Nachname = Nachname
        Me.Setting = Setting
    End Sub
    Public Vorname As String
    Public Nachname As String
    Public Setting As Settings
End Class
<Serializable()> Public Class Settings
    Sub New(ByVal Aktiv As Boolean, ByVal IsAdmin As Boolean)
        Me.Aktiv = Aktiv
        Me.IsAdmin = IsAdmin
    End Sub
    Public Aktiv As Boolean
    Public IsAdmin As Boolean
End Class

' Allgemein
Dim users As users
Const serFile As String = "DataFile.dat"
Private Sub Form_Load(..)
users = New Users("Waldi", "Maywood", New Settings(True, False))
End Sub

        Dim ser As _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim fs As New IO.Stream
        ser.Serialize(fs, users)
        fs.Close()

   If Not IO.File.Exists(serFile) Then
            MessageBox.Show("Keine Daten vorhanden!", String.Empty, _
              MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return
   End If
   Dim fs As New IO.FileStream(serFile, IO.FileMode.Open)
   Dim ser As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
   users = DirectCast(ser.Deserialize(fs), Users)
   fs.Close()