Public Module Variablen
    Friend Intervall As String
    Friend Email As String
    Friend Betreff As String
    Friend DavidFolder As String
End Module

    Private Sub frmOptions_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        tboxIntervall.Text = Intervall
        tboxEmail.Text = Email
        tboxBetreff.Text = Betreff
        tboxDavidFolder.Text = DavidFolder
    End Sub

    Private Sub frmOptions_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Intervall = tboxIntervall.Text
        Email = tboxEmail.Text
        Betreff = tboxBetreff.Text
        DavidFolder = tboxDavidFolder.Text
    End Sub