'formular einsatbericht wird geladen
    Private Sub mnu_einsatzbericht_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles mnu_einsatzbericht.Click
        Dim einsatzbericht As New frm_einsatzbericht
        einsatzbericht.Show()
    End Sub