Private Sub cmdA_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdA.Click
        Dim fn As Integer = FreeFile()
        Dim form1 As New Form1
        FileOpen(fn, "C:\test.txt", OpenMode.Output)
        Print(fn, "Name:" + txtDatum.Text + vbCrLf + "Geburtsdatum:" + _
          txtName.Text + vbCrLf + "Wohnort:" + txtOrt.Text)
        FileClose(fn)
        form1.Show()
        Me.Visible = False
    End Sub