Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim o As New Object
        Dim form As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim stream As IO.FileStream
        Dim datei As String = "c:\dtest.txt"
        stream = New IO.FileStream(datei, IO.FileMode.Open, IO.FileAccess.Read, _
          IO.FileShare.Read)
        o = form.Deserialize(stream)
        stream.Close()
        Label1.Text = o.VorName
 
    End Sub