Public Class Dashboard
    Private Sub bt_einlesen_Click(sender As Object, e As EventArgs) Handles bt_einlesen.Click
        mail_auslesen.Show()
        Me.Hide()
    End Sub

    Private Sub bt_verarbeiten_Click(sender As Object, e As EventArgs) Handles bt_verarbeiten.Click
        mail_sending.Show()
        Me.Hide()

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MessageBox.Show("Schließen?", "Close", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Dashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lb_version.Text = My.Application.Info.Version.ToString
        Timer_dienst.Start()
    End Sub

    Private Sub Timer_dienst_Tick(sender As Object, e As EventArgs) Handles Timer_dienst.Tick
        If My.Settings.mail_auslesen = "0" Then
            lb_Dienst.Text = "Dienst angehalten"
        Else
            lb_Dienst.Text = "Dienst wird ausgeführt"
        End If
    End Sub

End Class