Initial commit

This commit is contained in:
2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions

View File

@@ -0,0 +1,128 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Demo_Assessmentgenerierung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Demo_Assessmentgenerierung))
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DateTimePicker1
'
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(97, 12)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(103, 20)
Me.DateTimePicker1.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(2, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(89, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Simulationsdatum"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(650, 67)
Me.Panel1.TabIndex = 2
'
'C1Daten
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(0, 67)
Me.C1Daten.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Findings.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.Size = New System.Drawing.Size(650, 198)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 13
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(46, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Resultat"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(238, 13)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Start"
Me.Button1.UseVisualStyleBackColor = True
'
'Demo_Assessmentgenerierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(650, 265)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.Panel1)
Me.Name = "Demo_Assessmentgenerierung"
Me.Text = "Demo_Assessmentgenerierung"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents Label1 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Button1 As Button
Friend WithEvents Label2 As Label
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

View File

@@ -0,0 +1,160 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Findings.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 648, 196&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 648, 196&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

View File

@@ -0,0 +1,44 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class Demo_Assessmentgenerierung
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GetData()
End Sub
Private Sub GetData()
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "SP_Assessment_Generierung"
sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Try
c1daten.DataSource = Nothing
Catch
End Try
C1Daten.DataSource = ds.Tables(0)
C1Daten.DataMember = ds.Tables(0).TableName
For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

View File

@@ -0,0 +1,128 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Demo_Mailgenerierung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Demo_Mailgenerierung))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label1 = New System.Windows.Forms.Label()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Panel1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.DateTimePicker1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(844, 67)
Me.Panel1.TabIndex = 14
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(238, 13)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Start"
Me.Button1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(46, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Resultat"
'
'DateTimePicker1
'
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(97, 12)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(103, 20)
Me.DateTimePicker1.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(2, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(89, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Simulationsdatum"
'
'C1Daten
'
Me.C1Daten.AllowUpdate = False
Me.C1Daten.AlternatingRows = True
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(0, 67)
Me.C1Daten.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.Size = New System.Drawing.Size(844, 341)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 15
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'Demo_Mailgenerierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(844, 408)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.Panel1)
Me.Name = "Demo_Mailgenerierung"
Me.Text = "Demo_Mailgenerierung"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents Button1 As Button
Friend WithEvents Label2 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents Label1 As Label
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

View File

@@ -0,0 +1,160 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 842, 339&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 842, 339&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

View File

@@ -0,0 +1,43 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class Demo_Mailgenerierung
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GetData()
End Sub
Private Sub GetData()
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_erinnerungsmails"
sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Try
C1Daten.DataSource = Nothing
Catch
End Try
C1Daten.DataSource = ds.Tables(0)
C1Daten.DataMember = ds.Tables(0).TableName
For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

View File

@@ -0,0 +1,58 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(135, 72)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(240, 150)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(12.0!, 25.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(274, 229)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

View File

@@ -0,0 +1,160 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAAHYcAAB2HAY/l8WUAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style6{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="28" ColumnCaptionHeight="28" ColumnFooterHeight="28" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="34" DefRecSelWidth="34" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 238, 148&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;34&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 238, 148&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
</root>

View File

@@ -0,0 +1,3 @@
Public Class Form1
End Class

View File

@@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAbout
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.lblversiondatum = New System.Windows.Forms.Label()
Me.lblVersion = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.White
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(469, 330)
Me.PictureBox1.TabIndex = 1
Me.PictureBox1.TabStop = False
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(201, 339)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 2
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblversiondatum
'
Me.lblversiondatum.BackColor = System.Drawing.Color.White
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblversiondatum.Location = New System.Drawing.Point(249, 273)
Me.lblversiondatum.Name = "lblversiondatum"
Me.lblversiondatum.Size = New System.Drawing.Size(193, 24)
Me.lblversiondatum.TabIndex = 4
Me.lblversiondatum.Text = "Version "
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblVersion
'
Me.lblVersion.BackColor = System.Drawing.Color.White
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.Location = New System.Drawing.Point(245, 249)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
Me.lblVersion.TabIndex = 3
Me.lblVersion.Text = "Version "
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frmAbout
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(464, 374)
Me.Controls.Add(Me.lblversiondatum)
Me.Controls.Add(Me.lblVersion)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.PictureBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAbout"
Me.Text = "frmAbout"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
Friend WithEvents lblVersion As System.Windows.Forms.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,12 @@
Public Class frmAbout
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me.Close()
End Sub
Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
Me.lblversiondatum.Text = Globals.Versionsdatum
End Sub
End Class

View File

@@ -0,0 +1,89 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLogin
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogin))
Me.lblBitteAnmelden = New System.Windows.Forms.Label
Me.cbMitarbeiter = New System.Windows.Forms.ComboBox
Me.btnAbbruch = New System.Windows.Forms.Button
Me.btnAnmelden = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'lblBitteAnmelden
'
Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
Me.lblBitteAnmelden.TabIndex = 3
Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
'
'cbMitarbeiter
'
Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbMitarbeiter.FormattingEnabled = True
Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
Me.cbMitarbeiter.Name = "cbMitarbeiter"
Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
Me.cbMitarbeiter.TabIndex = 4
'
'btnAbbruch
'
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
Me.btnAbbruch.TabIndex = 6
Me.btnAbbruch.Text = "&Abbruch"
'
'btnAnmelden
'
Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
Me.btnAnmelden.Name = "btnAnmelden"
Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
Me.btnAnmelden.TabIndex = 5
Me.btnAnmelden.Text = "&Anmelden"
'
'frmLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(308, 129)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnAnmelden)
Me.Controls.Add(Me.cbMitarbeiter)
Me.Controls.Add(Me.lblBitteAnmelden)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLogin"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Benutzerauswahl Assessment-Management"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents btnAnmelden As System.Windows.Forms.Button
End Class

View File

@@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIAAAAAAAAAAAAAIi
IiJyIiIiIAAAAAAAACIndyInd3ciIiIAAAAAAAIid3cvJ3d3ciIiAAAAAAACJ3d3f4J3d3ciIgAAAAAA
Ind3co/3d3d3ciIAAAAAACJ3d3L//yd3d3IgAAAAAAACd3dy//+Cd3dyIAAAAAAAAnd3cv//9yd3cgAA
AAAAAAIneHf///9ndyAAAAAAAAAAInh3hzM3giIAAAAAAAAAAAAiIzMzMzMgAAAAAAAAAAAAAAMzMzMz
MAAAAAAAAAAAAAAzu7u7uzMAAAAAAAAAAAABO7u7u7uzAAAAAAAAAAAAA7u7u7u7uzAAAAAAAAAAAAO7
u7u7u7swAAAAAAAAAAATu7u7u7u7sQAAAAAAAAAAE7u7u7u7u7MAAAAAAAAAADu7u7u7u7uzAAAAAAAA
AAAbu7u7u7u7swAAAAAAAAAAG7u7u7u7u7MAAAAAAAAAABO7Mzu7u7szAAAAAAAAAAADMzMzMzMzMwAA
AAAAAAAAAzM3eIdzMzMAAAAAAAAAAAAzeIiIiHMxAAAAAAAAAAAAM4iIiIdzMAAAAAAAAAAAAAM4iIiI
MwAAAAAAAAAAAAAAM4iIczAAAAAAAAAAAAAAAAATMxAAAAAAAAD/4AAf/gAAD/gAAA/wAAAP8AAAD/AA
AA/wAAAP8AAAD/AAAA/wAAAf8AAAH/gAAD/4AAB//gAA//+AAH//gAB//wAAP/8AAD//AAA//wAAP/8A
AB//AAAf/wAAH/8AAB//AAAf/wAAP/+AAD//gAA//8AAP//AAH//4AD///gD/w==
</value>
</data>
</root>

View File

@@ -0,0 +1,41 @@
''' <summary>
''' Form für den Login. Wird nur angezeigt, sofern in der Tabelle Application Show-Login = true
''' </summary>
''' <remarks></remarks>
Public Class frmLogin
Dim m_mitarbeiternr As Integer
Property Mitarbeiternr() As Integer
Get
Return m_mitarbeiternr
End Get
Set(ByVal value As Integer)
m_mitarbeiternr = value
End Set
End Property
Dim tmp_madaten As New DataTable
Dim tmp_clsmitarbeiter As New DB.MyMitarbeiter
Dim conn As New DB.clsConnectionProvider
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn = Globals.conn
tmp_clsmitarbeiter.cpMainConnectionProvider = conn
conn.OpenConnection()
tmp_madaten = tmp_clsmitarbeiter.SelectAllwithFullname
Me.cbMitarbeiter.DataSource = tmp_madaten
Me.cbMitarbeiter.DisplayMember = "Fullname"
Me.cbMitarbeiter.ValueMember = "Mitarbeiternr"
conn.CloseConnection(True)
End Sub
Private Sub btnAnmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnmelden.Click
Me.Mitarbeiternr = Me.cbMitarbeiter.SelectedValue
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.Mitarbeiternr = -1
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
End Class

View File

@@ -0,0 +1,177 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMailInfo
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMailInfo))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cbboxmailtyp1 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.cbboxmailtyp2 = New System.Windows.Forms.ComboBox()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(474, 25)
Me.ToolStrip1.TabIndex = 9
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Neue Feststellung erfassen"
Me.ToolStripButton1.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 29)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(239, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Erinnerungsmail für weitergegebene Assessments"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(13, 51)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(195, 13)
Me.Label2.TabIndex = 11
Me.Label2.Text = "Erinnerungsmail für eigene Assessments"
'
'cbboxmailtyp1
'
Me.cbboxmailtyp1.FormattingEnabled = True
Me.cbboxmailtyp1.Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
Me.cbboxmailtyp1.Location = New System.Drawing.Point(252, 26)
Me.cbboxmailtyp1.Name = "cbboxmailtyp1"
Me.cbboxmailtyp1.Size = New System.Drawing.Size(64, 21)
Me.cbboxmailtyp1.TabIndex = 12
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(322, 29)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(141, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Tage vor Terminerreichnung"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(322, 51)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(141, 13)
Me.Label4.TabIndex = 15
Me.Label4.Text = "Tage vor Terminerreichnung"
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(16, 96)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 16
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(388, 96)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 17
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'cbboxmailtyp2
'
Me.cbboxmailtyp2.FormattingEnabled = True
Me.cbboxmailtyp2.Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
Me.cbboxmailtyp2.Location = New System.Drawing.Point(252, 48)
Me.cbboxmailtyp2.Name = "cbboxmailtyp2"
Me.cbboxmailtyp2.Size = New System.Drawing.Size(64, 21)
Me.cbboxmailtyp2.TabIndex = 18
'
'frmMailInfo
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(474, 135)
Me.Controls.Add(Me.cbboxmailtyp2)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cbboxmailtyp1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMailInfo"
Me.Text = "MailInfo"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents cbboxmailtyp1 As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents btnSave As Button
Friend WithEvents btnAbbruch As Button
Friend WithEvents cbboxmailtyp2 As ComboBox
End Class

View File

@@ -0,0 +1,174 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHd3d3d3d3MzMzMzMxETMAiIiLu7u7u7u7u7u7u7szAIiI
iIiIiIi7u7u7u7u7swCIiIiIiIiIiIiIu7u7uDMAj4iIiIiIiIiIiIiIiIOzAI+IiIiIiIiIiIiIiIg7
swCPiIiIiIiIiIiIiIiDu7MAj4iIiIiIiIiIiIiIO7uzAI+IiIiIiIh3OIiIg7u7swCP//iIiIiIiIOI
iDiIi7MAj////4iIiIiIOIOIiIizAI////+IiIiIiIM4iIiIswCP////iI+IiIiIOIiIiLMAj///+Ij/
+IiIiIOIiIizAI///4iP////iIiIOIiIswCP//iI//////iIiIOIiLMAj/+Ij///////+IiIOIizAI/4
iP////////+IiIOItwCPiI//////////+IiIOLcAiIj////////////4iIN3AIiP/////////////4iI
NwCI////////////////iLcAj/////////////////+HAIiIiIiIiIiIiIiIiIiIdwAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////w==
</value>
</data>
</root>

View File

@@ -0,0 +1,68 @@
Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Public Class frmMailInfo
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub frmMailInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
get_data()
End Sub
Sub get_data()
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "SP_Erinnerungsmail"
sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Me.cbboxmailtyp1.Text = ds.Tables(0).Rows(0).Item("Mailtyp1")
Me.cbboxmailtyp2.Text = ds.Tables(0).Rows(0).Item("Mailtyp2")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Save_Data()
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "SP_Erinnerungsmail"
sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.Parameters.Add(New SqlParameter("@param2", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp1.Text))
sqlcmd.Parameters.Add(New SqlParameter("@param3", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp2.Text))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
connection.ConnectionString = Globals.sConnectionString
connection.Open()
sqlcmd.ExecuteNonQuery()
connection.Close
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Save_Data()
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
End Class

View File

@@ -0,0 +1,181 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMsgBox
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMsgBox))
Me.btnYes = New System.Windows.Forms.Button
Me.btnno = New System.Windows.Forms.Button
Me.btnAbbruch = New System.Windows.Forms.Button
Me.txtmsg = New System.Windows.Forms.TextBox
Me.btnOK = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.imgQuestion = New System.Windows.Forms.PictureBox
Me.imgInformation = New System.Windows.Forms.PictureBox
Me.imgExclamation = New System.Windows.Forms.PictureBox
Me.imgCritical = New System.Windows.Forms.PictureBox
Me.Panel1.SuspendLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnYes
'
Me.btnYes.Location = New System.Drawing.Point(71, 84)
Me.btnYes.Name = "btnYes"
Me.btnYes.Size = New System.Drawing.Size(75, 23)
Me.btnYes.TabIndex = 0
Me.btnYes.Text = "&Ja"
Me.btnYes.UseVisualStyleBackColor = True
'
'btnno
'
Me.btnno.Location = New System.Drawing.Point(162, 84)
Me.btnno.Name = "btnno"
Me.btnno.Size = New System.Drawing.Size(75, 23)
Me.btnno.TabIndex = 1
Me.btnno.Text = "&Nein"
Me.btnno.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 2
Me.btnAbbruch.Text = "&Abbrechen"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtmsg
'
Me.txtmsg.BackColor = System.Drawing.Color.White
Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtmsg.Location = New System.Drawing.Point(67, 20)
Me.txtmsg.Multiline = True
Me.txtmsg.Name = "txtmsg"
Me.txtmsg.ReadOnly = True
Me.txtmsg.Size = New System.Drawing.Size(258, 44)
Me.txtmsg.TabIndex = 3
Me.txtmsg.TabStop = False
'
'btnOK
'
Me.btnOK.Location = New System.Drawing.Point(133, 84)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 5
Me.btnOK.Text = "&OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.imgQuestion)
Me.Panel1.Controls.Add(Me.imgInformation)
Me.Panel1.Controls.Add(Me.imgExclamation)
Me.Panel1.Controls.Add(Me.txtmsg)
Me.Panel1.Controls.Add(Me.imgCritical)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(337, 78)
Me.Panel1.TabIndex = 6
'
'imgQuestion
'
Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
Me.imgQuestion.Name = "imgQuestion"
Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
Me.imgQuestion.TabIndex = 7
Me.imgQuestion.TabStop = False
'
'imgInformation
'
Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
Me.imgInformation.Location = New System.Drawing.Point(12, 20)
Me.imgInformation.Name = "imgInformation"
Me.imgInformation.Size = New System.Drawing.Size(39, 36)
Me.imgInformation.TabIndex = 6
Me.imgInformation.TabStop = False
'
'imgExclamation
'
Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
Me.imgExclamation.Name = "imgExclamation"
Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
Me.imgExclamation.TabIndex = 5
Me.imgExclamation.TabStop = False
'
'imgCritical
'
Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
Me.imgCritical.Location = New System.Drawing.Point(12, 20)
Me.imgCritical.Name = "imgCritical"
Me.imgCritical.Size = New System.Drawing.Size(39, 36)
Me.imgCritical.TabIndex = 4
Me.imgCritical.TabStop = False
'
'frmMsgBox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(337, 116)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnno)
Me.Controls.Add(Me.btnYes)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMsgBox"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Assessment-Management"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnYes As System.Windows.Forms.Button
Friend WithEvents btnno As System.Windows.Forms.Button
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtmsg As System.Windows.Forms.TextBox
Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
End Class

View File

@@ -0,0 +1,763 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="imgQuestion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAkACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K47WvGbWRw0y23cRRqJJSPcn5
V/I/WmeN9dNi74IzCAkQPeRhkn8FKj/gRrznRNX0611pr3W4GvIgjN5ZXdvk7Zzx69a9DCYNVYOrPZdF
uznrVuVqK3Ori+JLLL81zehc9ZUhkA/BVQ/rXb6H4nttXjj+eMl+EkjJKOf7vPKt/sn8M1zOmXHhnx5p
F7H/AGRFYyQnaHCqGXIyGDL6dxXlfhrXv7L1qIG4Itp2EcxHQDPDj3U4YfTHernhadSMvZpxlHo9SVVl
Frmd0z6Yoqppd017psE8gAkZcSAdnBw36g0V5h1HlnxTSSF5Zv4FuQ7H0DxIq/rE1eSSXj3EoQMUQnBx
2HrX0x4s8PRa7p0kbRGTdGY5EBwzLnPy/wC0DyPxHevBLjwjqOgan57W/wBss4ZA3mqpK4BztcdUPsf1
r2cvxUY0/ZvfocWIpNy5kbmr6ta2GnR6T4bnUW0kRE8yAhjngjnue5rlrfS2uLmG3hXMsrrGg9STgV0m
taofEU1tFp+mSiSMEbUHmOxOOOB0GP1rpfBXgu5e6F1dgCQAj5TkQg8HJHBfHAA+7nJ5wK2UoYehzS+J
9L3bYcrnOy2PTdA50hJB92aWWZf915GYfoRRWjGixRrGihUUBVA7AUV4B2jqqXWl2V64knt1aQDAkGVc
f8CGDRRQBX/sDTjxJHNMv92e5klX8mYitFI0iQJGioijAVRgCiigB1FFFAH/2Q==
</value>
</data>
<data name="imgQuestion.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
</value>
</data>
<data name="imgInformation.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAlACUDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3yaaOCF5ZXVI0GWZjgAVzeo+K/s3MSRxJ2afJZvog/qQfaqfj
PXBZExjBEO0hT/FIckH/AICBn6sD2rzC41GSeRpJHLM3JJNd+DwTr+9J2Rz1q/s9Fueip4/2y7WuLZx/
tWzRAfiHc/pXVaXrdtqaqFwkrLuC7gwYeqsOD/MdwK8l8aa5azWumouivpZVDhpUCeYMDhf7wHXJ9ayf
C3iQ2urQ2wuAIppAFJPEcnRX/Pg+oJFa1MB+69pD7n/wCY1/e5ZH0HRVbT7sX2nwXO3aZEBZf7p7j8Dk
UV5Z1HlnxN3xXMjkHb9qJJ9AYYgP1R68suL6SVtisVTPbqa+hfGvh1NZ06U7T8yBZCoyVwSVcDvtJOR3
DGvANW0S90e58u6iIU8xyrykg9Vboa97Kq8HD2Tepw4mm+bmOt+JxdodJLf897gD6bY64WyhlmvYIoQT
K7qqAdyTgV1/jrxPp3ikaWmm21zF9mMhl85QNzOF6YJz92tTwL4Ku21GO8uomimA3QxsMNHn/low7Y/h
B5JwegrSlNYbBWqaS10CUfaVbrY9g0DnSgw+6887r/umVyv6EUVft4I7W2igiXbHGoRR6ADFFfOncSVl
Xvh6wvt5ZGjMnL+WRtc+rKcqT9RRRQBStvBmmWsvmRs6t6xRQwn/AL6jRT+tbltaW9nF5VvEsaZyQO59
Se5ooovcCaiiigD/2Q==
</value>
</data>
<data name="imgInformation.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
</value>
</data>
<data name="imgExclamation.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACYDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iiqep3n2KzeQEeYeEz6+v4daNgIm1m2XVBY5+bO0tngN6Vo
15ZLrSR62NFa0JupHD+eZMHcV3Yxj0469STXouk3v22xR2OZAAG9/f8Az3BHauLCYz6w5Jq3VecXtL56
6Fyhyq5eooortICuQ1LVEu78kHdFFwAO/wD+s8/gvvW5r800OlSeSrEudjEKTtB6njn2/GuMSNtu0o2e
pYrJyf8AvivKzj6xLDulh43ctH5Lr950YdQ57zeiOFunv5fjL9o+yyCyRFYS7Ttz5eOvSvRdF1gWWo7J
DiGU/ke/+P4H1rnH8MSN4oOs/wBoybDEI/spEuwYGMj5O/0rQlsSQcBt3UMqycHsfuV5FOhjaNajVjC/
LFRfp1R1XoOEot7vQ9OBBGRyKKyPDtzNPpoSZTuiOwMVIBGPfB4/wor6w8016KKKACiiigAooooA/9k=
</value>
</data>
<data name="imgExclamation.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
</value>
</data>
<data name="imgCritical.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
</value>
</data>
<data name="imgCritical.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAMDAAAAEACACoDgAAhgAAACAgAAABAAgAqAgAAC4PAAAYGAAAAQAIAMgGAADWFwAAEBAAAAEA
CABoBQAAnh4AADAwAAABACAAqCUAAAYkAAAgIAAAAQAgAKgQAACuSQAAGBgAAAEAIACICQAAVloAABAQ
AAABACAAaAQAAN5jAAAoAAAAMAAAAGAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC
CABJJBsASisjAGc0KAB3PC0AZzswAGdDOwB8QDEAL1JeAFxSUQBoS0QAbFNNAHZTSwBrWVYAclpWAHxf
WQB0Yl0AXGRpAFFteABfcHUAW3R9AGNmaQB7bGsAYmtxAGt3fAB2eHgAhkMyAIhEMwCGSz0Ajk4+AJRJ
NwCWSjgAnE06AKVSPQCGTkAAhVFDAIpQQQCFU0gAmFtMAIRcUwCsVkAAtFpDALxdRgCzXUkAimBVAIFh
WwCIY1oAl2BSAJtiVACUaV0Am2lcALJgTAC9YUkApGNTAKNrXQCrbV4AtmdTALFqVwC8aVQAsWtZALht
WgCHaWAAi21lAIFsaQCIbmgAlWthAIhwbQCZcWcAkXNrAJ5zaQCCdnQAinZ0AIR+fACKfXkAknhyAKhu
YACpdWgAv3lnAMViSgDIZEoAxGpTAMpqUgDBbloA0m1VANV1XgDMe2YAxnxqAMh9awDTfGYA3X9oAIaA
fwCNgH0AlIF7AJmDewClgHUAooJ5AKyIfAC0gXMAu4h4AMuBbgDFg3AAy4p2AM2LeQDUinMA3I98AMKS
fwDMk38A0ZJ8AOiZfwDzmX0A/5p8AEhzggBJf5EAYXmDAHB9gwBOiZwAV4WVAHyGigBtipUAUI2hAFeV
qwBanbMAZpSkAGmXpwBnm60AY56yAF2iuAB8oa8AZKS6AHWktAB4pLQAcaa4AGGqwwBorsYAZK/JAGmw
xwBmsssAaLTOAHWzyABqt9AAarnTAG6+2gBzv9gAb8LdAHLB3AB5x+AAdcnlAHvK5AB5zeoAfdLsAH3T
8ACMh4YAkYWCAJeIggCWkI4AhZWbAJSUlACampoApImBAKyTjAC/kYUAvJOJALuYjwC+mpAAnqiqAKur
qwC4raoAurq6AMaPgQDGlYkAzZmMANOajADHm5AAyp+UAMChmQDappkA7aOHAOejiQD9oYUA9KGJAOOi
kgDmrJwA66yZAPSulgD4spgAxq6oAMe0rwDOsaoA3baqAN65rwDVvrcA272yANG/ugDks6UA6relAO26
pgDotKgA672yAMbAvwDOwb0A0cO9AObBtwDjwbkAicnYAJjK0gClydAAic7iAIPQ5gCI0eMAgtPrAIjX
7ACO2u0Amd3sAIba9ACR3vEAkN/4AI3i9gCH4PgAi+L6AJrl9QCW5/kAlev8AJrs+wCm7PkAovP9AKjx
/ACo+v8AuPj9AMbGxgDOw8AA3cjDANDQ0ADZ2dkA7M7GAOnZ1gDw2NIA9OLdANDg4wDI6/AAwvP6AMv1
+wDF/f8Ayfz+ANP8/gDc/P4A7ejnAPXq5wDw6ugA5P7/AO3+/wDz8/MA+vTzAPT//wD9/v4A////AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACbm5ubAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAmwEBAQGbm5sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJsB
AQEBAQEBAZsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtfZ6AAAJubAQEBAQGbAAAAAQAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAXWJob7S2ylEAAQEBAQEBAQGbm5sAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAACZX2dus7e+yeXo/5sBAQEBAQEBAQEBAZubAAAAAAAAAAAAAAAAAAAAAAAAAABeY22zt77B5eXl
5eX7AQEBAQEAAAAAAAEBAQGbmwAAAAAAAAAAAAAAAAAAmmFrbLjDv7/l5eXl6OXl5ej/AQEBNwAAAAAA
AAABAQEBm5sAAAAAAAAAAACYn2qxucTA5uXl5eXl6OXl5eXl5ekBAQGbUlwAAAAAAAAAAQEBAZsAAAAA
AAAARmWxxMvm5eXo5eXo5eXl5eXl5eXlp6IBAQH/rDMAAAAAAAAAAAEBAZsAAAAAAABEWF6o5eXl5eXl
5eXl5eXl5eW7ok47NQEBAZv//FYAAAAAAAAAAAEBAZsAAAAAAFxUm6bl5eXl5eXl5eXl5bqtZVBQUFBQ
UAEBAZv//8I3AAAAAAAAAAABAZsAAAAAADlinuXl5eXl5eXluqpYUVBQUFBQUFBQUAEBAZv///dUSgAA
AAAAAAABAZsAAAAAP1OdpuXlx7qqqlhQUFBQUFBQT1BQUFBQUAEBAZv+//+wOgAAAAAAAAABAZsAAAAA
LGCbr6lXUFBQT1BQTEhLNiIpKSsrUFBQUAEBAZub////WUsAAAAAAAEBAZsAAAAANTtQUU9QUVBQUDx7
enqFj4MmHBwcHBwgISIBAQGb/v//yjwAAAAAAAEBAZsAAAAAM09QUE9QT1BPLHyMiofQ4t+ULhwcHBwc
HBwBAQGbm////2RHAAAAAQEBAQAAAAAAADBPT09QT1A1D9fdltLy/frZhBwcHBwcHBwcAQEBm5ub/+o9
AAABAQEBAAAAAAAAAAA0T09PUE8iDvX639bz//PahxwcHBwcHBwcHAEBAQGbm5ubmwEBAQEAAAAAAAAA
AABKNU9QT08bB+/935Tc4NmReRwcHBwcHBwcHCEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAP09PT1AIBHPX
lIqFioV6DhwcICAiIipPT1BPUAEBAQEBAQEAAAAAAAAAAAAAAAAAADFPT08hBARyhXp4eHVCUE9QUE9P
UFBPUE9QT1Cr+///7DsAAAAAAAAAAAAAAAAAAAA0T1BPIAQEChgWEDVgoCIrT1BQUE9QT09PUFBQ6/7/
/7VBAAAAAAAAAAAAAAAAAABbLE9PT09PT09PT1BH8c4oHCEqUE9QUFBPUE9QVvv//+1SAAAAAAAAAAAA
AAAAAAAAP1BPT09PT09PT08M4v/wnBwcHyI1T09QT1BPUL7+//9pRAAAAAAAAAAAAAAAAAAAADFPT09P
T09PT1AE1fH/+cxAHBwcISpQUFBPUFb7/v/sUgAAAAAAAAAAAAAAAAAAAAAnUE9PT09PT08Edtbx/v3x
zXYdHBwcIClPUE/L/v//xTgAAAAAAAAAAAAAAAAAAAAANE9PT09PT08IDNvS8////eTRdh0cHBwcIipS
9v///FUAAAAAAAAAAAAAAAAAAAAARU9PT09PT08hBIKX0vT////55MxHHBwcHBwfrvz//8UyAAAAAAAA
m5ubAAAAAAAAAC9PT5ubm08rBQaEk9Li+f////nkz0ccHBwcHuf+//xVAAAAAAABAQGbAAAAAAAAAAAx
AQEBm09PKQQGfZGT1/T+///+9d+AHRwcHGL8///FNwAAAAABAQGbAAAAAAAAAAAAAQEBm09PTyAEBn6O
kdLk+v////Xfix0cHBzr/v/8VVwAAAABAQGbAAAAAAAAAAAAAQEBm09PT08iHAYYfo2R1PH9//7y2oIc
HBxM+///xj0AAAABAQGbAAAAAAAAAAAAAQEBm08rQ0I3KiIFBBh/jJHg9f3035UXGxwcvP7//1oAAAAB
AQGbAAAAAAAAAAAAAQEBm08+z4WBf3cXBwIDE4eN0/Ly3pWBHBwcJ/b/+0kAAAABAQGbAAAAAJubAAAA
AQEBmykL9NCPlNOSf3AJcYuJitLf25OJJhwcHKT+pgAAAAABAQGbAAAAAQGbmwAAAQEBmwgE7uTW2OTj
hn+S3PTVjYqTlZCHDRwcHBz4ngAAAAABAQGbAAABAQEBmwAAAQEBmw4Epfne2OTij9bi+f/614qMjo1+
HBscHByjGgAAAAABAQGbAAABAQEBm5sAAQEBmwALDPDh2t/e1uH0///94I2FioUZHBsbGxscEQAAAAAB
AQGbAAEBAQEBAZubAQEBmwAABxnWl5bW2+Pz+fnkl4d6gXgbGxsbGxscIwAAAAABAQGbAQEBmwEBAQGb
AQEBmwAAWwUShpGTl9ve39mVjXp5dAwjJSUkDQ0tRgAAAAABAQEBAQEBAAABAQGbAQEBmwAAAJ8zEXV/
iY2Ojo2HeXFwGgAAAAAAAAAAAAAAAAABAQEBAQEAAAAAAQEBAQEBmwAAAAAAAAAAAHYZchUUGgAAAAAA
AAAAAAAAAAAAAAABAQEBAQAAAAAAAAEBAQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB
AQEBmwAAAAAAAAEBAQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAAAAAAAAAAAB
AQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEAAAAAAAAAAAAAAQEBAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////z9//////8P/P3//////AP8/f/////wA/z9////4YB3
/P3///4BAB/8/f//4AAAD/z9//8AAD4H/P3/4AAAfwP8/f4AAAA/g/z9+AAAAD/D/P3wAAAAP8P8/eAA
AAAf4/z94AAAAA/j/P3AAAAAD+P8/cAAAAAHw/z9wAAAAAfD/P3AAAAAA4f8/eAAAAADD/z98AAAAAAf
/P3wAAAAAD/8/fgAAAAA//z9/AAAAAD//P3+AAAAAH/8/f4AAAAAf/z9/wAAAAA//P3/gAAAAD/8/f/A
AAAAH/z9/+AAAAAf/P3/4AAAAA/8/cfwAAAAD/z9h/gAAAAH/P2H/AAAAAP8/Yf8AAAAA/z9h/wAAAAD
/P2H/AAAAAP8/YecAAAAB/z9hwwAAAAH/P2GDAAAAAf8/YYEIAAAB/z9hAAwAAAH/P2AADAAAAf8/YDA
OAAP//z9geA/4H///P2D8D/////8/YPwP/////z9h/g//////P2P/H/////8/SgAAAAgAAAAQAAAAAEA
CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIIABARFgAkExMAHB0jACEhJQApIiQAMCstADIx
NAA5Oj8ARSMeAEwmHwBCKCUATzQvAGEwJgBxOCoAez0uAGc8MQBrRTsAdUAzAHFIPwB7Sz4APT1BAEJB
QwBMSUwAUEJAAE1OUQBRTVAAU1BSAFRVWQBmTUgAdEpBAH5OQgBoUEoAdVBHAGJTUQB/XVYAcVxYAHRi
XQBfYmUAVnR/AGRgYQBuYWAAbGxuAHZmZAB9bWwAZm90AHBvcABzcXEAhkMyAIlEMwCKSDcAhkk6AIpL
PACUSjcAlEs5AJtNOQCdUD0ApVI9AKhTPgCGTkIAh1pQAKZWQgCuV0EAp19OALJZQgC9XkYAv19IAIVj
XACQYlYAnWVXAJRkWQCYZVoAnWlcAK5gTgCyYU0AuGFLAKdiUQCrZlMAtmRRALZrWACMbmYAgWtoAJFr
YgCbbWIAgnBtAJpwZgCTd28Am3VrAJ14bgCNfnkAlXp1AJ99dACWfXgAqnRmAKJ0aACydWcAvH1uAKR7
cACrfHEAxGJKAMZoUADJblYAxnFcAMh2YgDGfWsAhYB/AJqGfwCtgHQAp4d/AK2GegCpiX4AtIN0ALKG
egC4hXkAu4l8AMSDcwDHjX8AXXaAAF94ggBJf5EAWYWVAGuGjgBzgYYAe4SKAGWMmgB6jZYAdJKeAHmS
nABTkqYAW5SkAF+YqgBbn7YAYZapAGebrABlnrIAXqS7AGumugBuqr4AYqrCAGWxywBqsskAarfRAG65
0QB1u9EAbsDbAH3B1wBwwdwAesbcAHbH4AB1yeQAfMvkAH/Q5gB+1PAAioGBAIWLjQCIiYkAloeCAJeJ
hgCdiIMAl42LAI+PkACNlpkAjpmcAJeVlQCmiYAAqoyAAKaRiQC0kYUAo52bAIKlsACMq7AArKemAK2o
pwCxtrUAuLSzALm5uQDDj4IAx5GDAMWWigDQk4QA2JqIAMiilgDEo5sA0qKUAOmqlwDFqqMAxrGsAM+0
rgDcsqYA27esANK9tQDbvbMA5bSiAOW3qwDhv7YAzcG9AOnDuQCJwtEAicnaAKnFyQCzwcMAodbfAIHN
4QCF0+oAi9XoAI3Y7gCV3O0AnNztAIje9gCQ2/EArtrhAI3g+ACV4PMAmuHzAJDi+ACa7fsAs+XuAKDn
9wCu5/UArer3AKHt+wCv7PkAtOv0AL3s9QC57fgApvP+AK/z/QC28fsAu/H6ALL4/QDGxcUAycXDAM3N
zQDcyMMA2tnZAO/WzwDx08sA69nUAPPb1QD24dwAw+XqANHl6ADC9PwAzf3+ANn2+gDz4+AA9OnmAPnx
7wDk+/0A6/3+APb08wD79fMA9f7+AP39/QD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoIHK0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcB
AhodBAAAAAAAAAAAAAAAAAAAAAAAAKVwc7hcMAgCAQEIrQAAAAAAAAAAAAAAAAAAAABrbrW5vsTpsBcB
BB0dHQEBMOgAAAAAAAAAAAAAp2+otr7A6Ojp5+sdAQ0AAAAAMAECMAAAAAAAAJ2muMHD6Ofn5+fo5+jo
mgEWdQAAAAAAAAEBrwAAAABfqL/o6Onn5+fp5+i6smEGAaT2XwAAAAAAAQGvAAAAVG2w5+fn5+i7urRp
ZGRlZAEBr/+4nQAAAAAAAa8AAABgqefou7eyaWdlZGVkZWRkAQGv/+xeAAAAAAABrwAASWNzaWVkZVBb
fJpIOTs/QUIDATDr/8KfAAAAAQGvAABYZWRlZGVDgIuNzcZVMjIyMw4BCK3/+F8AAAABAQAAAABHZGRk
Qz3c1db685AyMjIyMgsBFzDot1orAQQAAAAAAABNZGRBH/XkzuXVizIyMjIyMgsBAggICAEBAAAAAAAA
AABMZEEPe5CLiIVSOTo7QWRkZGQMGB0bIwAAAAAAAAAAAFFkQzcRJ3cuVmxBZGRkZGRkZWXF/vxjAAAA
AAAAAAAAAFNkZGRkZGROyMlROD9DZGRkZGb3/8VXAAAAAAAAAAAAAEpkZGRkZD6r+fKcPDY6QmRkZMH+
93QAAAAAAAAAAAAAAEBkZGRkOybV9f3xo0QyMztBaO7/71kAAAAAAAAAAAAAXWRkZGRBE5LS+v7105s8
MjM5s/7+cgAAAAAwMAAAAAAAUzcpamQ4IYnM4f3/+dmcPDIz6v/tWQAAAAEIAAAAAAAABwEpZEMQHo2V
2/n//d+qMzJx+/y0AAAAAQgAAAAAAAAYASlkT0s5FC6JlOD6+t2ANTW8/vBiAAABCAAAAAAAAB0BKUui
f34tFBkoj8/04pAkMkb7/p4AAAEIAAAAMOcAHQEpNK7MmM+PeILHj5jRkzAxMrewAAAAAQgAAAQCMAAd
ASkSoOXX5svL5fnQjpOMLDIxSZoAAAABCAAwAQEXrRoBKQAhytTX1Ob6+t6Mi30gMTExIgAAAAEILwEX
AQEcCAEpAAAqipaZ2OPal4SBJTQ1FSBFAAAAAQEBBAAABAUFASkAAABaen2Gh4N5dpsAAAAAAAAAAAAB
AQEAAAAAAQEBKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBMAAAAAAJAQEpAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAQkAAAAAAAAJAaEAAAAAAAAAAAAAAAAAAAAAAAAAAP/////////D////A///AA//8AAD/wADw/AA
A/HgAAHxwAAA+cAAAPmAAABxgAAAc8AAAAfgAAAP8AAAH/AAAB/4AAAP/AAAD/4AAAf+AAAHnwAAA5+A
AAOfgAABn4AAAZyAAAOYgAADkAgAA4AMAAOGDgD/jw///48P//+fj///KAAAABgAAAAwAAAAAQAIAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAggAMRoYACUlKQBWPToAYzIpAGYzKABzPjEAez8wAF9A
OgBmRT4Af0AxAHxCNAB/SDoAP0FFAEBBRQBLSUsAWlpcAGpXUwB0W1cAcV1YAHZdWQBlZGYAcGxsAHR0
dgB6d3kAfXx9AIZDMgCIRDMAikU0AI5HNQCMSDcAh0k4AIFLPgCHSz0Akkg2AJZLOACZTDkAolE8AKdT
PgCoUz8AgU1AAI9ZTACUWEkAgl1VAIRdVACmVEAAsFhBALRaQwC2XEUAul1FAIBgWgCdZFUAmGZaAKxg
TgCyYk0AtGNPALhgSgC/YUoAr2hWAKNrXQCva1oAtWpXAIxoYACTamAAhHJuAJFzbACYd28AiXZwAJZ3
cACSenQAmnpyAKBzaQCndWgAoXhuALR+cADCYUgAxWJKAMdkSwDGaVEAx2tUAMZ8agCUgHwApIB1AKmF
egCthHoAqYt/AMeEcwDGjX8AXXaAAF94gQBYe4gAZX+KAF+AjABdipoAdIGHAH+AgwB2iI8AaYmVAGyQ
ngB6k50AVpasAFiYrgBkkqEAY5+xAGWdsABfp74AdKq+AHKvwgBntM0AabbQAG250QBru9UAbrzVAHC6
0gB4xNoAfsneAH7N5QB4zOgAhoKFAIqHiACUiYYAn4qFAIGUnAChj4sApJCKALOUjACmmpYApZyZAIWq
tgCko6QApaSlAK+rqQCwq6oArLy8ALCwsgC+vr4AyZeHAMCYigDKmIoAypiMAMKckgDHnZIAzKCQAMam
ngDWoJMA2aSXAMWuqADHtK8AzLGpANWxpADcs6kAxbSwANW8tADTv7kA4a+gAOK2qwDnvLEA1sG5AO3H
vQCDzN8Ams7aALPKzwChy9IAqNLaAK7R2ACAzeMAgc/oAITS6QCH2O8AkdDgAJbe7QCE2fEAiNnwAJLc
8QCO5PkAmOLxAJPn/ACp4/EAqOr3ALbn8QCx7/oApfD9ALD2/gC78PoAuPb9AMfHxwDKxMMAycbFAM3N
zQDfz8sA69/cAMXq8ADH8/oA0vX7ANb8/gDj4uEA9ObiAPLp5gD48O0A5fv+AOD9/wDq/P4A/Pf2APH9
/gD2/v8A+fj4AP38+wD5/v8A/f39AEsAUABpAHAAhwCQAKUAsADEAM8A4QDwAPAR/wDyMf8A9FH/APZx
/wD3kf8A+bH/APvR/wD///8AAAAAABsALwAtAFAAPwBwAFIAkABjALAAdgDPAIgA8ACZEf8ApjH/ALRR
/wDCcf8Az5H/ANyx/wDr0f8A////AAAAAAAIAC8ADgBQABUAcAAbAJAAIQCwACYAzwAsAPAAPhH/AFgx
/wBxUf8AjHH/AKaR/wC/sf8A2tH/AP///wAAAAAAAAAAAAAAAAAAAAAAAAAAALy8AAAAAAAAAAAAAAAA
AAAAAAAAAACCAwEDFwAAAAAAAAAAAAAAAAB9U4t8EQMBAYUAAAAAAAAAAAAAAABUiZuZvIcDAWBgDwEX
AAAAAAAAf1aPlpq7urq6vQ8DQwAAAA8BFwAAAEeKnry6urq6upiNPwGDjAAAAAABEAAAAFWIurq6lI5X
UE5OBQG8xUUAAABgEAAAPICQWFFPPTsxMk1OBQGF35EAAAAPEAAAOE5OTkxkanSBIh0dIwEQxMdFAAAB
FgAAADpOTSq4rcm1GR0dHQYBEIV+GgEPAAAAAEZNTQeldaBvFR0jJScdAgEBARgAAAAAAAA1TSQKXVlC
PkxNTU5NTpffnAAAAAAAAAAANk1NTU00wHklL01OTU/Gy0gAAAAAAAAAADlNTU0kocqiRB8mME2S0Z0A
AAAAAAAAAFJNTU0oX67MyqRBHB4uv89KAAAAELwAAABABBdMCGOowt/Ioy0cSdGfAABgAbwAAAAAARBN
MgtccrLMzassHL7PSwBgAbwAAAAAARA3e3czCVtzwbdrGzTOkwBgAbwAFoUAARAMtKewZmiqcaxwIRuV
AABgAbxgARAAARAUhrG2qcPQpm1pGxsrAABgAXgBAwEXARAAEmx2r7mzbmUTIA0pegBgAQEPAA8DARAA
AABhYmdeWgAAAAAAAABgAQMAAAABARAAAAAAAAAAAAAAAAAAAABgAQAAAAAAARYAAAAAAAAAAAAAAAAA
AAD///MA///BAP/wBwD/gAMA8ABxAMAAeQDAADkAgAA5AIAAGQDAAAMAwAAHAOAADwDwAAcA+AAHAPgA
AwCcAAMAHgABAB4AAQASAAMAAgADAABAAQAIcH8AHH//AD5//wAoAAAAEAAAACAAAAABAAgAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCAAQERYAIRISACIaHAAbGyEAHB0jACUeIAAtKS0ALCwxADIx
NAB6PC4APDxAAE1MTwBTUFIAVVZaAF5cXgBtX10AcVtYAG5gXwB3YFsAemFcAGVlaQBqaWsAbmxtAGx3
fAB2dXcAfXx+AIdDMgCCRjcAiEQzAIhFNQCZTDkAnE46AKBPPACBUEQAiFlOAJFURACbV0cAll5QAK5W
QAC4W0UAuVxFAI5mXgCba18ArWFOAL5hSgCgal0AjHFqAI90bwCKfHsAkHp1AK9vYAC6c2EApH92AMNh
SQDEYkoAx2RLAMZlTQDGa1QAxnVhAMWNfwBiiJYAYY2cAHyQlgBwk6AAXaO6AH6jrwB4tMQAeMniAIGB
gwCHhYcAi4iIAIqJjACejIgAg5eeAJKRkgCXlZUAkZqcAKGLhAClkIsAo5GNAKiQiACqlI4AtJGIALaW
jACllZAAgrC9AKelpwCtrq8Ap7O1ALOxsQDFoZgAwaWeAMalnQDPraQA1bOoANK4rQDGubUAxr69AM7B
vQC8w8QAiM7jAIzP4ACO1uYAntblAJ/d7gCD1/EAlN3xAKvf7ACu5/QAsur2ALTs9wC59v0Av/f9AMPC
wgDHx8cAzsPAANvZ2ADh0MwA8uXiAPfp5gDj9/oA5vf5AOH4/AD48/EA+/TzAP///wAAAAAALyYAAFBB
AABwWwAAkHQAALCOAADPqQAA8MMAAP/SEQD/2DEA/91RAP/kcQD/6pEA//CxAP/20QD///8AAAAAAC8U
AABQIgAAcDAAAJA+AACwTQAAz1sAAPBpAAD/eREA/4oxAP+dUQD/r3EA/8GRAP/SsQD/5dEA////AAAA
AAAvAwAAUAQAAHAGAACQCQAAsAoAAM8MAADwDgAA/yASAP8+MQD/XFEA/3pxAP+XkQD/trEA/9TRAP//
/wAAAAAALwAOAFAAFwBwACEAkAArALAANgDPAEAA8ABJAP8RWgD/MXAA/1GGAP9xnAD/kbIA/7HIAP/R
3wD///8AAAAAAC8AIABQADYAcABMAJAAYgCwAHgAzwCOAPAApAD/EbMA/zG+AP9RxwD/cdEA/5HcAP+x
5QD/0fAA////AAAAAAAsAC8ASwBQAGkAcACHAJAApQCwAMQAzwDhAPAA8BH/APIx/wD0Uf8A9nH/APeR
/wD5sf8A+9H/AP///wAAAAAAGwAvAC0AUAA/AHAAUgCQAGMAsAB2AM8AiADwAJkR/wCmMf8AtFH/AMJx
/wDPkf8A3LH/AOvR/wD///8AAAAAAAgALwAOAFAAFQBwABsAkAAhALAAJgDPACwA8AA+Ef8AWDH/AHFR
/wCMcf8AppH/AL+x/wDa0f8A////AAAAAAAAAAAAAAAAAABMWwAAAAAAAAAAAABTABoCDUYAAAAAAABW
VWBkWQcAAAYYAAAAUmF1dHRjXQhRAAAAAQAANnNiXj08OTkBdlQAAA8AADU7OElDMyAiA0h5AAABAAAs
OCZwb2ceHgsEEBEFAAAAAC0hGT8yKCo3OStYAAAAAAAALjg4T2UnKDc6eFwAAAAAAEo4OCVqe1okIT1+
VgBGTQAAFQ4pE2Z8ek4fd18AD0cAAAAKNDESPm1yGy99AA9HABgACjBsaERpRUEcUAAPFwkCEAoAV2tx
bkIUHSMADwEAAAIKAAAAS0AAAAAAAA8WAAAPDAAAAAAAAAAAAAD/+QAA/6EAAPgZAADAHQAAgA0AAIAN
AACAAwAAwAcAAOADAADgAQAAMAEAADgBAAAoAQAAAgEAADOfAAAz/wAAKAAAADAAAABgAAAAAQAgAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAACWkI7/lpCO/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAEAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAlpCO/wACCP8AAgj/AAII/wACCP+WkI7/lpCO/5aQjv8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAADAAAABYAAAApAAAAMgAA
ACAAAAAGAAAAAAAAAAAAAAAAAAAAAJaQjv8AAgj/AAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/5aQ
jv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAANAAAAHgAAADYAAABRAAAAah0R
DomFTz+2wnJc0Ws9MI4AAAAqAAAAApaQjv+WkI7/AAII/wACCP8AAgj/AAII/wACCP+WkI7/AAAAAAAA
AAAAAAAAAAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAoAAAAXAAAALQAAAEoAAABtTTAnnKBi
T8rQf2bp/5p8//Shif/mrJz/5sG3/8BkTfMAAABnAAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/wAC
CP+WkI7/lpCO/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABwAAABAAAAAhAAAAPQAAAGA5JB2NglJDusV7
ZeLzl3v6+6CF/+qsmv/ctqv/zsG9/8fHx//R0dH//////5aQjv8AAgj/AAII/wACCP8AAgj/AAII/wAC
CP8AAgj/AAII/wACCP8AAgj/AAII/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAALAAAAGwAAADAAAABFAAAAWgAAAHViQDSlrXBc0+iV
evX/o4X/7a2Z/9+2qf/Rv7r/x8fH/8fHx//Hx8f/x8fH/8fHx//x8fH/AAII/wACCP8AAgj/AAII/wAC
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAACCP8AAgj/AAII/wACCP+WkI7/lpCO/wAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAgAAAAUAAAAKQAAAEUAAABmUDctl5JjUsHGhW7gzopy7PSu
lv/mtaX/2Lyz/9W+t//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/9DQ0P/+/v7/AAII/wAC
CP8AAgj/lE070wAAAEgAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/5aQ
jv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANAAAALwAAAFcfFRKChV1OtriBa9vnoIX2+LKY/+q3
pf/cvbL/zsPA/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/9nZ
2f8AAgj/AAII/wACCP+WkI7/zGpR/zAYEooAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAII/wAC
CP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0AAABLeD0ut799Zu7to4f/7bqm/9++
sf/Rw73/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fH
x//Hx8f/uK2q/7yTif8AAgj/AAII/wACCP//////05qM/4hHN84AAABAAAAAAwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAABQAAADxzOy24yH1r/5eC
ff+6urr/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fH
x//HtK//v5GF/795Z/+7alb/vF5H/wACCP8AAgj/AAII/5aQjv//////+vTz/8x4Y/ocDgp8AAAAFwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAITAY
Eo3Sa1L6l5GP/6mpqf/Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8eu
qP/Hm5D/x4Jx/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wACCP8AAgj/AAII/5aQjv///////////+Cx
pf+LSDfOAAAARQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQjv8AAAAAAAAAAAAA
AAAAAAAMAAAAW69YQue1gHP/lpaW/8PDw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x66o/8eV
if/HfGr/x2pS/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wACCP8AAgj/AAII/5aQ
jv////////////Xq5//PalH/LRYRjwAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQ
jv8AAAAAAAAAAAAAAAIAAAAvWi0hsMFuWv+Tk5P/ra2t/8fHx//Hx8f/xsC//8auqP/GlYn/xpWJ/8Z8
av/GZEv/xmRL/8ZkS//GZEv/xmRL/8ZkS//GZEv/xmRL/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wAC
CP8AAgj/AAII/5aQjv/8/Pz////////////appn/qFdC4gAAAFQAAAAKAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAgj/AAII/5aQjv8AAAAAAAAAAAAAAAoAAABZr1dB86CDe/+WkI7/wKGZ/8aPgf/GfGr/xmRL/8Zk
S//GZEv/xmRL/8ZkS//GZEv/qG5g/4p2dP+ReHT/omBQ/6dUP/+nVD//q1ZA/7ZcRf+2XEX/xmRL/8Zj
S//GY0v/xmNL/wACCP8AAgj/AAII/5aQjv+WkI7//v7+////////////03xm/1csIaIAAAAlAAAAAAAA
AAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAA42GxRvv2BI/75pU//GZEv/xmRL/8Zk
S//GZEv/xmRL/8ZkS//GZEv/xmRL/7BsW/9mlKT/WZ20/1ibsf9hqcH/bbzW/3iktP+FU0j/iUQz/4lE
M/+JRDP/iUQz/4lEM/+USTf/mEs5/6NRPf8AAgj/AAII/wACCP+WkI7/+/v7////////////5sO6/6pX
Q+IAAABPAAAABwAAAAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAYAAABAfj8vyMZj
S//GY0v/xmNL/8ZjS//GY0v/xmNL/8ZjS//GY0v/tFpE/2mXp/9qt9D/Z7TN/2awyf+D0Ob/qvH8/5rq
+/9+yuH/gWFb/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lEM/8AAgj/AAII/wACCP+WkI7/lpCO//7+
/v///////////8t/bPssFhGUAAAAIgAAAAEAAAAAAAII/wACCP8AAgj/AAII/wAAAAAAAAAAAAAAAAAA
AAAAAAARAAAAWYRCMtbFY0v/xWNL/8VjS//GY0v/xmNL/8ZjS//AYEj/dFtX/5He8f+W5/n/fdHr/4PT
7P/F/f//9v///+f///+N4/f/caa4/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lEM/+JRDP/AAII/wAC
CP8AAgj/lpCO/5aQjv+WkI7//////+zOxv+zXEbnAAAAWAAAAAsAAgj/AAII/wACCP8AAgj/AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFwAAAGurVkHuxWNL/8VjS//FY0v/xWNL/8VjS/+hUT3/allX/938
///r////muz7/4bW8f/I/P///f///8z+//+F3PX/ZbDJ/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lE
M/+JRDP/iUQz/wACCP8AAgj/AAII/wACCP+WkI7/lpCO/5aQjv+WkI7/lpCO/wACCP8AAgj/AAII/wAC
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACUsFhCOvF5H+sVjSv/FY0r/xWNK/8Vj
Sv+DQjH/aEY//8jr8P/x////m+v6/3zM5/+Z4/P/qO/5/47i9f9wwNv/W5So/4hEM/+IRDP/iEQz/4hE
M/+JRDP/iUQz/4lEM/+JRDP/jEU0/5xNOv8AAgj/AAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/wAC
CP8AAgj/AAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAA5VywhssVj
Sv/FY0r/xWNK/8VjSv99Py//ZjMm/3B9g/+S3vD/e8zm/2ezzf9jq8T/aLPM/2Ksxf9Xma//cFpW/4hE
M/+IRDP/l0s4/5dLOP+fTzv/p1M+/7ZbRP/CYUj/xmNK/8ZjSv/GY0r/xmNK/wACCP8AAgj/AAII/wAC
CP8AAgj/AAII/wACCP8AAAAuAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAALAAAAUIVCMtTFY0r/xWNK/8VjSv+bTjr/ZjMm/2YzJv9ie4X/YKe//1qetf9Pi5//UI2h/1KA
kP+UaWD/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8Zj
Sv/NmYz/9vb2//7+/v//////79fR/7leSO8AAABhAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFgAAAGmsVkDtxWNK/8VjSv/FY0r/lUs4/2s2KP9mMyb/XFJR/2lr
bv9cZGn/fF9Z/7tiS/+kgnj/rJSN/59PO/+6XUX/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8Zj
Sv/GY0r/xmNK/8ZjSv/IZEr/6NvY//z8/P///////////+Oikv9OJx6rAAAALgAAAAIAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACIXCwiEslhD9sViSv/FYkr/xWJK/8Vj
Sv/FY0r/xWNK/8VjSv/FY0r/xWNK/8VjSv9/enX/zPP6/6XJ0P+EXFP/iEQz/59PO/+yWUL/xmNK/8Zj
Sv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/zXxn//Ly8v/+/v7///////Ti3f/GZU30AAAAZwAA
ABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAA0WSwhr8Vi
Sv/FYkr/xWJK/8ViSv/FYkr/xWJK/8ViSv/FY0r/xWNK/8VjSv9tU03/q+35//v////B8vr/hZWb/4hE
M/+IRDP/j0c1/6dTPv++X0f/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/965r//8/Pz/////////
///cj3z/cjosugAAADMAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAALAAAAToZCMtHEYkr/xWJK/8ViSv/FYkr/xWJK/8ViSv/FYkr/xWJK/8VjSv9mMyb/mN3r/8z1
/P//////5P3//43K2P+BbGn/iEQz/4hEM/+IRDP/m006/7JZQv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8x8
Z//09PT//v7+///////w2NL/x2VN9QAAAHIAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAF+NRjXdxGJK/8ViSv/FYkr/xWJK/8ViSv/FYkr/xWJK/8Vi
Sv9rNSj/fYyO/4jb8//L9vz//f////X////M9vz/mMrS/3+Gi/+GSz3/iEQz/4hEM/+LRTT/l0s4/65X
Qf/CYUj/xmNK/8ZjSv/gwLn/+vr6////////////6LSo/5lNOtAAAABAAAAABQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoAAAB1sllD9MRiSv/EYkr/xWJK/8Vi
Sv/FYkr/xWJK/8ViSv99Pi//ak9J/4vf+P+C1e7/yPj9//7/////////9P///7r1/f+I0eP/foWK/4ZL
Pf+IRDP/iEQz/4hEM/+LRTT/n087/7ZbRP/Ia1T/7efm//7+/v//////+/Xz/9p2Xv8AAAB2AAAAEwAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAwWy0iqsRi
Sv/EYkr/xGJK/8ViSv/FYkr/xWJK/8ViSv+bTTr/ZjMm/3Wktf9+0+//gdPt/9H7/v/8//////////3/
///m////tPX9/4XF1v+AdHT/iEQz/4hEM/+IRDP/iEQz/4hEM/+USTf/yp+U//j4+P///////////+az
p/9uNyq/AAAAOAAAAAMAAAAAAAAAAAAAAAAAAAAAlpCO/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAKAAAAR2EwJMDEYkn/xGJK/5aQjv+WkI7/lpCO/8ViSv+/X0f/cjgq/2c7MP9upLf/dsnl/3/R
6v+s7fr/5v7///7//////////f///+b+//+18/v/i8zb/4J3dv+IRDP/iEQz/4hEM/+IRDP/jk4+/93I
w//+/v7///////v18//Tc1v5HA4KeQAAABYAAAAAAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAFaPRzXaAAII/wACCP8AAgj/lpCO/8ViSv/FYkr/rVZB/2cz
Jv9mOi//Z5ut/3HD3v92yOP/kN/z/9X7/v/7///////////////9////3v7//5vr+f98oa//hks9/4hE
M/+IRDP/iEQz/6x7bv/4+Pj////////////ptaj/jEc2zAAAAEIAAAAFAAAAAAAAAAAAAgj/AAII/wAC
CP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAABwAAII/wACCP8AAgj/lpCO/8Vi
Sv/FYkr/xWJK/5ZKOP9nMyb/Zjku/2Sfs/9svNf/cMHc/4TT6/+28/z/7v////7//////////////9/+
//+X6/z/eLDE/4ZLPf+IRDP/iEQz/4tFM//m29n//f39///////79fP/03Nb+jAYEowAAAAeAAAAAAAA
AAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAqAAII/wAC
CP8AAgj/lpCO/8ViSv/FYkr/xWJK/8ViSv+nUz7/ikQz/2U5Lv9ia3H/Y52x/2q40/9zw93/jtrt/8z3
/f/3//////////z////F/f//h+D4/3aktP+HQzL/iEQz/4hEM/+ncGP/9fX1//7+/v//////672y/65Y
Qt4AAABEAAAABQAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAHAAII/wACCP8AAgj/lpCO/8RiSf+5XEX/iHBt/5RpYP+nZlf/tVpE/6FQPP94PC3/ZzMn/2Bo
bf9gorf/aLXP/3XE3v+h6vf/4P7///n////U////mO/+/3XL5/97bW3/h0My/4hEM/+JRDP/zrGq//v7
+////////////91/aP8AAABLAAAACQAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/lpCO/8RiSf+HaWD/ic7i/2Kpwf9gpr3/X6W8/22K
lf98bGr/bUQ7/0kkG/9KKyP/UW14/2Ksxf9quNH/iNfs/777/v+/////le7+/3jO6/9qpbn/h0My/4hE
M/+IRDP/lVhJ/+7p6P//////8vLy+y8lIpgAAAArAAAAAwAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAA
AAAAAAAAAAAAAJaQjv+WkI7/AAAAAAAAAAAAAAAAAAII/wACCP8AAgj/lpCO/6dTPv9qR0D/2Pn9/33O
5/9zv9j/fMjh/4fV6/96yOH/XaG4/0FzhP8vUl7/S3+Q/3K3zP9mssv/Z7TN/4DR6P+Z7/3/ieH6/3XL
5/9mssz/fVJJ/4dDMv+IRDP/iEQz/76akP/8/Pz/mpqa0gAAAEgAAAAHAAAAAAAAAAAAAgj/AAII/wAC
CP+WkI7/AAAAAAAAAAAAAAAAAAII/wACCP+WkI7/lpCO/wAAAAAAAAAAAAII/wACCP8AAgj/lpCO/3o9
LfpoNCf/0ODj/7T2/v+F1/L/kN/4/7v+//+l8Pv/aK7G/12ht/95x+D/m+f3/9T6/P+a3u7/a7nT/2i0
zv94yeX/ec3q/2/C3v9ircb/eVVN/4dDMv+HQzL/iEQz/4lEM//w6uj/YmJipAAAACAAAAAAAAAAAAAA
AAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAII/wAC
CP8AAgj/lpCO/zUaFLhoNCf/nqiq/+L///+V6/3/j+H7/7z+//+o8fz/dMDa/4PV7v+o8/3/4/////7/
///v/v//jNzx/2i1z/9ptc//br/a/2q51P9fnbL/hkMy/4dDMv+HQzL/h0My/4hEM/+7mI//AAAAiQAA
ABUAAAAAAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/5aQ
jv8AAAAAAAII/wACCP8AAgj/lpCO/wAAAE9AIBjNcFRN/8P1+/+i9v//iN36/5vs/f+W6P3/h9v3/6Dz
/v/S/////f/////////4////ou37/2q50/9gqcH/ZrPM/2Ksxf9rcnb/hkMy/4ZDMv+HQzL/h0My/4dD
Mv+JRDP/KRQPqgAAACgAAAABAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAACCP8AAgj/AAII/wAC
CP8AAgj/AAII/5aQjv+WkI7/AAII/wACCP8AAgj/lpCO/wAAABIAAABfSiUb32x5f/+D2PH/ftTx/3zR
7f+C1/P/i+L8/6j6///L////5v///+H///+3+P7/f9Tv/2Svyf9bn7b/XaO6/1yNnf+CRjf/hkMy/4ZD
Mv+GQzL/h0My/4dDMv+IRDP/czkq4wAAAEQAAAAIAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAII/wAC
CP8AAgj/lpCO/wACCP8AAgj/AAII/wACCP+WkI7/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAeGQwJhHA3
KflhYGL/abDH/2/C3f90yeX/fdPw/4ri+f+W7fz/mu/8/47k+P96zur/arnU/1qetP9Uk6j/TIaZ/GJH
Qu5+Py/qfj8v6n8/L+h1OivhUikez1QqH8tqNSfIdjsstEwmHEoAAAAIAAAAAAAAAAAAAgj/AAII/wAC
CP8AAgj/AAII/wACCP8AAgj/AAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAII/wACCP8AAgj/lpCO/wAA
AAAAAAAEAAAAMFcrII54PCzEWj02zkFyg99bn7b6ZrLM/2y81v9uv9r/br7a/2m40v9iq8T/Vpet/0h/
kv82YG7fDhkclAAAAGAAAABRAAAAUAAAAE4AAABFAAAAOQAAADQAAAAzAAAAKAAAABEAAAABAAAAAAAA
AAAAAgj/AAII/wACCP8AAgj/AAII/wACCP8AAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/AAII/wAC
CP8AAgj/lpCO/wAAAAAAAAAAAAAABgAAABwAAAAvAAAAOAAAAEkAAABhAAAAdxcoLpQeNT2nK0tWvixN
WMYfNz+2ER4ilgAAAG0AAABHAAAAIAAAAAgAAAAFAAAABQAAAAQAAAADAAAAAQAAAAEAAAABAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/AAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC
CP8AAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAQAAAAKAAAAEAAA
ABcAAAAgAAAAKgAAAC8AAAAnAAAAGQAAAA4AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAACCP8AAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wAC
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/AAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
//////z9//////8P/P3////5/AP8/f///wDwA/z9///4AAB3/P3//4AAAB/8/f/wAAAAD/z9/4AAAD4H
/P34AAAAHwP8/fAAAAAfg/z94AAAAA/D/P3AAAAAD8P8/cAAAAAH4/z9gAAAAAfj/P0AAAAAA+P8/QAA
AAADw/z9AAAAAAHD/P0AAAAAAIf8/YAAAAAAD/z9wAAAAAAf/P3AAAAAAD/8/eAAAAAAP/z98AAAAAA/
/P34AAAAAB/8/fgAAAAAH/z9/AAAAAAP/P3+AAAAAA/8/f8AAAAAB/z9/4AAAAAH/P3/gAAAAAP8/cfA
AAAAA/z9h+AAAAAB/P2H8AAAAAH8/YfwAAAAAPz9h/gAAAAA/P2H/AAAAAD8/YecAAAAAfz9hwwAAAAD
/P2GDAAAAAP8/YYEAAAAAfz9hAAAAAAB/P2AACAAAAH8/YDAIAAAAfz9geAwAAAP/P2D8DwAH//8/YPw
P/3///z9h/g//////P2P/H/////8/SgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaQjhyWkI5VlpCOVZaQ
jhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAACWkI5xGxwgxjIx
NP9TUFL/lpCOxpaQjnEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAACAAAACAAAABcAAAAnFQwKRjkiG2IXDQo0AAAABpaQjlVCQUNVQkFD/wAC
CP8QERb/GxwgxgACCKoAAgjjlpCOcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAEAAAAKAAAAGQAAADsiFRFmdUc5o59gTca0emnd056P7W06LKcAAAONMjE0/xAR
Fv8AAgj/AAII/zIxNP+WkI7GlpCOcQACCDkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAIAAAAHAAAAEwAAAB8KBwU7MSAaZFw7MJ2XZVXH1pWC8emql/7bt6z/zsC8/83Nzf+6u7z/QkFD/wAC
CP8AAgjjAAIIqgACCKoAAgiqAAII/wACCP90cHD/lpCOjgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAgAAAAXAAAANyMYFGFsSTyah1pLtqp8bdbEm47r2rOn/dW9tf/Nwr7/yMbF/8fHx//Hx8f/29vb/1NU
WP8AAgj/QSMe6wAAAloAAAABAAAAAAAAAAAAAgiOAAII/xARFv90cHD/lpCOcQAAAAAAAAAAAAAAAAAA
AA4aDQpJSzIplZFpWsPNnInt5bSi/du9s//Ow7//x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8PB
wP+KgYH/AAII/z09Qf/HjX//MxoUeAAAAA4AAAAAAAAAAAAAAAAAAghxAAII/wACCP+WkI6qAAAAAAAA
AAAAAAACGQ0KT41SQ8uxkYb70L21/83Ewf/IxsX/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8LB/8Oq
pP/Aj4P/vH1u/ykiJP8AAgj/l5WV//Pj4P9/SDrABgMCLgAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQ
jqoAAAAAAAAAAQAAACR/RDXGp4d//ri4uP/Hx8f/x8fH/8fHx//Hx8f/x8HA/8ezrv/HqqL/x5GD/8d9
a//HZEv/x2RL/8dkS//HZEv/AAII/wACCP+5tbP//////8+ekfQ/IBmJAAAACgAAAAAAAAAAAAAAAAAC
CFUAAgj/lpCOqgAAAAAAAAANKBQObrFzZPqjnZv/xsbG/8bDw//GsKv/xqWd/8aPgv/Gf23/xnFc/8Zo
UP/GZEv/xmRL/8dkS//HZEv/x2RL/8dkS/8AAgj/AAII/7i0s//+/v7/79bP/5xcTNkAAAAvAAAAAgAA
AAAAAAAAAAIIVQACCP+WkI6qAAAAAAYDAih+Py/FqHxx/7iIfP/GfGn/xmlR/8ZkS//GZEv/tmtY/5V6
df97hIr/i4GC/5hlWv+eUT3/p1Q//65XQf+yWUP/tlpE/yQTE/8AAgj/dHBw/9rY2P//////5ber/0wm
HYsAAAATAAAAAAAAAAAAAgj/AAII/5aQjqoAAAAABgMCIGg0J6zEZEz/xmNL/8ZjS//GY0v/xmNL/75f
R/94lJ7/ZKzD/2ixyf+L1ej/icLR/4Jwbf+JRDP/iUQz/4pEM/+NRjT/YTAm/wACCP8yMTT/rKem//7+
/v/58e//iVBCywkEAzoAAAAAAAIIcQACCP8AAgj/lpCOOQAAAAAAAAAEAAAAMHk8LsrCYUn9xWNL/8Vj
S//AYEj/h1pQ/63q9/+V4fP/muHz/+f+///C9Pz/drvQ/4lEM/+JRDP/iUQz/4lEM/+JRDP/TCYf/wAC
CP9CQUP/dHBw/8TBwP/CoJb6WUQ+rwABBJMAAgj/AAII4wACCDkAAAAAAAAAAAAAAAAAAAAGHA4KYpxO
O+LEY0r/xGNK/7JZQ/90SkH/2fX4/7bx+/+N2O7/u/H5/5Tg8f9mrMP/iEQz/4hEM/+IRDP/iUQz/4lE
M/+KRDP/RSMe/wACCP8QERb/MjE0/zIxNP8yMTT/AAII/wACCP8AAgg5AAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAQJhMOb7ZbRPXFY0r/sFhC/3E4Kv9zgYb/d77U/2CowP9epLv/YZap/4FraP+cTjr/o1E8/6hT
Pv+vV0H/vl9G/8ViSf/GY0r/xmNK/0IoJf9NSEv/VFZa/1FNUP8pFRO7AAAAGAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAEAAAAdWSwhr79gR/vAYEj/lUs4/2c8Mf9fYmX/X3iC/2ZvdP+acGb/rYB0/7JY
Qv/DYUj/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/x2lR/+G/tv/9/f3/+/b0/59lV9cRCAZIAAAAAQAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAgEzaDMmt8RiSv/FYkr/xGJK/8ViSv/EYkr/xWNK/6tm
U/+pxcn/s8HD/4xuZ/+bTTn/rldB/75fR//FYkn/xmNK/8ZjSv/GY0r/yW5W//Hp5v/+/v7/6cO5/V0z
KKoAAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkTCQdSqFM/68RiSv/EYkr/xGJK/8Ri
Sv/EYkr/plZC/4yrsP/g+f3/0eXo/4iIiP+ITT//lEo3/6RRPf+9Xkb/xmNK/8ZjSv/GY0r/3rKm//v7
+//36eb/v3lo6wAAAEMAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkfDwtunk475sRi
Sv/EYkr/xGJK/8ViSv+pVD//dGJd/5bh9f/Y9vz/7/3+/8Pl6v+OmZz/hWNc/4hFNf+PRzX/plM+/7Va
Q//IdmL/69nU//7+/v/z29X/dDwusAAAACIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AB5QJx6ZxGJK/8RiSv/EYkr/xGJK/7NZQ/91QDP/fcHX/5Db8f/p/f7/+////9z3+/+u2uH/hImM/4ZO
Qf+IRDP/jUY0/5xOO//Flor/+/v7//78/P+vdmjiGAwJVQAAAAEAAAAAAAIIHE1LTcZ0cHD/lpCOVQAA
AAAAAAAAAAAAAgAAACVmMya5kkk4+2RgYf+FgH//w2FJ/5lMOf9oUEv/b6a6/4TT6v+57fj/9P7+//3/
///j+/7/s+Xu/4iKiv+GT0P/iEQz/4pIN//cyMP//v7+//HTy/50Qze3AAAAGQAAAAEAAghVAAII/zIx
NP+WkI5VAAAAAAAAAAAAAAAAAAAAAw8HBU4PCQvbAAII/2RgYf/EYkr/v19I/3s9Lv9mTUj/arLJ/3bH
4P+u5/X/5vz+//7////3/v//tOv0/4KlsP+HRzf/iEQz/7KGev/39fT/+/Ty/86NffEVCghUAAAABwAC
CFUAAgj/MjE0/5aQjlUAAAAAAAAAAAAAAAAAAAAAAAAACwABBbQAAgj/ZGBh/8NhSf+2ZFH/sGBN/51Q
Pf9zST//Zm91/2imu/96xtz/vez1/+v8/v/q/v//oe37/3qRmv+GSDn/j009/8+0rv/9/f3/9uHc/35D
NLMAAAAcAAIIVQACCP8yMTT/lpCOVQAAAAAAAAAAAAAAAAAAAAAAAAABAAEGqwACCP9kYGH/tWJN/42W
mf90kp7/eo2W/31tbP9wSD//UEJA/1Z0f/9vutL/l9rr/839/v+m8/7/dLnR/39dVv+IRDP/nWVX//b0
8//5+fn9RiwmjgAAABUAAghVAAII/zIxNP+WkI5VAAAAAAACCDl0cHD/lpCOjgAAAAAAAgiqAAII/2Rg
Yf+ISDj+sba1/4fU6v9/zOb/k97v/221y/9Jf5H/W5Sk/4nJ2v9tudH/f9Dm/4fd9P9uwNv/dHJ0/4dD
Mv+HQzL/xaWd/6ysrNcAAAApAAAAAgACCFUAAgj/MjE0/5aQjlUAAgg5AAII4xARFv90cHD/AAAAAAAC
CKoAAgj/ZGBh/1UqH96XjYv/vPT8/4/h+f+0+f3/gszg/4HO4/+68Pn/5vr8/5zc7f9qt9H/cMHc/2ez
zf92ZmT/h0My/4dDMv+faVv/WlFPtgAAABAAAAAAAAIIVQACCP8yMTT/lpCOVQACCI4AAgj/AAII/0JB
Q/+WkI7GGxwgxgACCP9kYGH/DgcFX1A0Lduh1t//i+D4/5Di+P+K3/n/sfj+/+j////u/v7/r+z5/2Sw
yf9hq8P/Zoya/39NQf+GQzL/hkMy/4dDMv9ZLCHTAAAAIgAAAAEAAghVAAII/zIxNP9IRkjGAAII/0JB
Q/8AAgj/AAII/1NQUv8yMTT/AAII/2RgYf8AAAAVGw0KfW1gX/xuqr7/dcnk/37U8P+a7fv/r/P9/6Dn
9/96yuP/W5+2/1OSpv5qVFDzgEAw8X8/L+5rNSfjajQn3HQ6K8shEAwzAAAAAwACCFUAAgj/AAII/wAC
CP8AAgjjAAIIOQACCDkAAgjjISEl/yEhJf8AAgj/ZGBh/wAAAAEAAAAYQSAYdkIoIZkxVmK2QXKDzlCM
oN1WlavnUY+j6kN1h+AsTVnDEiAkggAAAD8AAAA3AAAAMwAAACkAAAAjAAAAHQAAAAgAAAAAAAIIVQAC
CP8AAgj/AAII/wACCDkAAAAAAAAAAAACCDkAAgj/AAII/wACCP9kYGH/AAAAAAAAAAEAAAAMAAAAEgAA
AB8AAAAvCA4RRQwWGVcNFxpeBwwOSQAAACcAAAAQAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA
AAAAAghVAAII/wACCP9NS03GAAAAAAAAAAAAAAAAAAAAAAACCMYAAgj/AAII/2RgYf8AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAACCFUAAgj/AAIIxgACCBwAAAAAAAAAAAAAAAAAAAAAAAIIHAACCMYAAgj/NzY5jgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA////w///74H//AAB/+AAA/wAAAPwAADBwAAA4YAAAPEAAABxAAAAMQAA
ADEAAAAhAAAAA4AAAAfAAAAPwAAAB/AAAAfwAAAD+AAAA/wAAAEMAAAADgAAAA8AAAAPAAAACIAAAACA
AAEAAAAAAAAAAAAAAAEGCAAPDw///w8P//8oAAAAGAAAADAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWkI6AlpCOgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAgAAAAXAAAACgAAAAAAAAAAS0lLgCUl
Kf8AAgj/JSUp/3BsbP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAA
AB8TDAlNXDgtjoRTRLzEi3vhSigfhCUlJ8AlJSn/AAII/wACCP+WkI6/lpCOQAACCEAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAEAAAAKAAAAHgAAADpDLCR2iFdHuMSMeubhr6D+1by0/8jFxP+wsLL/JSUp/wAC
CP8AAgiAAAIIgAACCL8AAgj/cGxs/5aQjkAAAAAAAAAAAAAAAAAAAAAPBwUEPU83LoCLYlK8x5eF6NWw
o/rTv7n/ysTD/8fHx//Hx8f/x8fH/83Nzf8/QUX/JSUp/2QzJ6kAAAAIAAAAAAAAAAAAAgi/AAII/3Bs
bP8AAAAAAAAAAAAAABRsPTGuv5eJ+9bBuf/JxsT/x8fH/8fHx//Hx8f/x8fH/8fHx//FtLD/wpyS/4xo
YP8AAgj/paSl/8iThvIHAwI2AAAAAAAAAAAAAAAAAAII/0tJS/8AAAAAAAAAAzccFXythHr+vr6+/8fH
x//Hx8f/x8fH/8e0r//HnZL/x4Rz/8drVP/HZEv/x2RL/2MzKf8AAgj/ysfG//Tm4v9hMiaoAAAACgAA
AAAAAAAAAAIIgEtJS/8AAAAAAAAAJZpdTeilnJn/xqae/8aNf//GfGr/xmpS/69rWv+vaFb/tlxF/7te
Rv/CYkn/xmNL/2MyKf8AAgj/r6up//7+/v/VnpD4FQsISQAAAAAAAAAAAAIIv0tJS/8AAAAADQYFMbBa
RfHGY0v/xmNL/8ZjS//BYUn/epOd/1+nvv9+yd7/haq2/4dLPf+JRDP/i0U0/5NJN/8AAgj/S0lL/+Pi
4f/48O3/aDswsAAAAAoAAghAAAII/zIxNL8AAAAAAAAABCEQDGy+X0j7xWNL/8VjS/+PWUz/u/D6/4jZ
8P/g/f//se/6/3p3ef+JRDP/iUQz/4lEM/9mMyj/AAII/0tJS/+wq6r/spKK+SUkJZgAAgj/AAIIvwAA
AAAAAAAAAAAAAAAAAAtPKB6dxWNK/8VjSv9zPjH/rtHY/37N5f+DzN//bbnR/3ZdWf+LRTT/kUg2/5tN
Ov+nUz7/ikU1/zEaGP8AAgj/AAII/wACCP8AAQSLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcfT4vysVj
Sv+WSzj/ZkU+/1+AjP9ddoD/kXNs/7VqV//DYUj/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/cs6n//v7+/+K1
qvsTCQdSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQICN6VSPunFYkr/xWJK/8ViSv/FY0r/nWRV/8Xq
8P+UiYb/mEw4/7BYQf/EYkn/xmNK/8ZjSv/HaVH/8unm//z39v+FSz3FAAAAEQAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAyEQDGS2W0T2xWJK/8ViSv/FYkr/lks4/5rO2v/q/P7/s8rP/4l2cP+MSDf/olE8/7Ra
Q//FYkn/2aSX//39/f/nvLH8JhMOZgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdDIRmRxGJK/8Ri
Sv/FYkr/qFM//3SBh/+S3PH/8v7+/+r8/v+o0tr/hHJu/4hEM/+ORzX/plRA/+vf3P/+/Pz/i1hLzQAA
ABQAAAAAAAIIQEtJS/+WkI6AAAAAAAAAAAAAAAAYbTYovFY9Ov9wbGz/w2FJ/3s/MP9skJ7/hNLp/9L1
+//9////5fv+/6HL0v+EXVT/iEQz/6d1aP/9/f3/7ce9/ioVEGcAAAABAAIIgAACCP+WkI6AAAAAAAAA
AAAAAAAAAAAALQACCP9LSUv/xWJK/7lcRf9/QDH/ZX+K/3C60v+p4/H/8P3+//b+//+W3u3/gl1V/4hE
M//fz8v//fz7/6doWNkAAAAaAAIIgAACCP+WkI6AAAAAAAAAAAAAAAAAAAAAAgACCP9LSUv/smJN/4GU
nP+GgoX/gGBa/19AOv9Ye4j/eMTa/8fz+v+w9v7/dKq+/4dDMv+dZFb/+fj4/7+lnuQAAAAgAAIIgAAC
CP+WkI6AAAAAADIxNL+WkI6/AAAAAAACCP9LSUv/fEI0/rbn8f+Bz+j/mOLx/1iYrv9jn7H/kdDg/268
1f+E2fH/a7vV/4FLPv+HQzL/zLGp/z8/P3gAAAACAAIIgAACCP+WkI6AAAIIgAACCP9LSUv/lpCOQAAC
CP9LSUv/NxsUtay8vP+T5/z/pfD9/4fY7//W/P7/+f7//4DN4/9ntM3/ZZ2w/4ZDMv+HQzL/lFhJ/woF
A1wAAAAAAAIIgAACCP9kYGG/AAII/yUlKf8AAgj/cGxs/wACCP9LSUv/AAAAJE84M9dyr8L/eMzo/47k
+f+49v3/qOr3/2m20P9Wlqz+b1ZR9oJBMPR1Oivsczkq5E0mHIkAAAAEAAIIgAACCP8AAgj/AAIIvwAA
AAAAAgi/JSUp/wACCP9LSUv/AAAAARUKCDg0Hhh+J0ROoTpldMJJf5HZRXmL3itNWMARHiJ2AAAAMAAA
ACoAAAAgAAAAGgAAAA4AAAAAAAIIgAACCP8lJSn/AAAAAAAAAAAAAAAAAAII/wACCP9LSUv/AAAAAAAA
AAAAAAAAAAAABAAAAAoAAAASAAAAFgAAAAoAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIIgAAC
CP8AAghAAAAAAAAAAAAAAAAAAAIIQAACCP8yMTS/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA///zQf/wwUH/gAFB8AABQcAAMUGAADlBAAAZQQAA
GUEAAAFBAAADQYAAB0HAAAdB4AADQeAAAUHwAAFBGAAAQRwAAEEcAABBEgAAQQAAAUEAAABBCAABQRxw
P0Ecf/9BKAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaQjhw8Oj2OeHNzjpaQjhwAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAJDAgGK0UqIWp1UUecJRQQXDIxNKoQERb/ODc64x4eIo6WkI4cAAAAAAAA
AAAAAAAIDQkHKD0pImFqT0aYqYR42NWyp/vOwb3/ra6v/yEaHPoAAQV6AAIIVQACCONdWlvjlpCOHAAA
AAE2Hhhcl3pw1NK3rPrOw8D/x8fH/8fHx//Gvr3/waWe/y0pLf+jkY3/NBwWXQAAAAAAAggcAAII/5aQ
jlUPBwUonndt78PCwv/GubX/xqWd/8aNf//GdWH/x2RL/8dkS/8AAgj/29nY/6Z8cdUAAAAPAAAAAAAC
CKqWkI5VPB4WbrpzYf/Ga1T/xGJK/4qJjP9+o6//kHp1/5lMOf+gTzz/IRIS/4uIiP/36eb/PyMcaQAB
BBwAAgj/lpCOOQAAAA59Pi/DxWNK/5tXR/+07Pf/sur2/4zP4P+IRDP/iEQz/3o8Lv8iGhz/X11f/2BR
T+oAAQfkAAIIVQAAAAAAAAAADgcFJ6VSPeidTzv/bHd8/2GNnP+KfHv/rVZA/7lcRf/DYUn/xmNK/45m
Xv+npaf/NiEcfQAAAAAAAAAAAAAAAAAAAAAkEQ1RvV5H+sRiSv/EYkr/oYuE/7zDxP+WXlD/r1dB/8Nh
Sf/GZU3/8uXi/7+WjOQAAAAXAAAAAAAAAAAAAAAAAAAAAkMhGYPEYUr/xGFK/5FURP+f3e7/5vf5/6ez
tf+IWU7/nE46/8WNf//79PP/Ty8oggAAAAAeHiKOZGBhqgAAAAAAAAALRiMct1NQUv+4W0X/bmBf/4jO
4//h+Pz/4/f6/5GanP+IRTX/4dDM/8umnOkJBAMdAAIIqktJS6oAAAAAAAAAAAABBFsyMTT/r29g/490
b/9xW1j/YoiW/6vf7P+/9/3/fXx+/6BqXf/48/H/MRwWXAACCKpLSUuqAAIIVV1aW+MAAghVMjE0/4lt
ZveU3fH/jtbm/3i0xP+e1uX/eMni/3CToP+HQzL/moN94wAAAA8AAgiqQD5BxhITGOMQERb/S0lL4zIx
NP8iFBFzgrC9/oPX8f+59v3/ruf0/12juv90XFf4fT4u9G83Kd4MBgQWAAIIqgACCP8AAghVAAIIVRAR
Fv8yMTT/AAAABiUUEEscMjl0L1FdmCpKVJwRHyNfAAAAHwAAABgAAAAQAAAAAgACCKoZGR6qAAAAAAAA
AAAAAgiqJSUp4wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/8KxB/ACsQcAA
rEEACKxBAASsQQAArEEAAaxBgAOsQcABrEHAAaxBIACsQTAArEEAAKxBAACsQQAArEEz/6xB
</value>
</data>
</root>

View File

@@ -0,0 +1,26 @@
Public Class frmMsgBox
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
Me.DialogResult = Windows.Forms.DialogResult.Yes
Me.Close()
End Sub
Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
Me.DialogResult = Windows.Forms.DialogResult.No
Me.Close()
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,106 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSplash
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.lblVersion = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblversiondatum = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.White
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(463, 334)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 3000
'
'lblVersion
'
Me.lblVersion.BackColor = System.Drawing.Color.White
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.Location = New System.Drawing.Point(3, 0)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
Me.lblVersion.TabIndex = 1
Me.lblVersion.Text = "Version "
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.lblversiondatum)
Me.Panel1.Controls.Add(Me.lblVersion)
Me.Panel1.Location = New System.Drawing.Point(246, 252)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(195, 48)
Me.Panel1.TabIndex = 2
'
'lblversiondatum
'
Me.lblversiondatum.BackColor = System.Drawing.Color.White
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblversiondatum.Location = New System.Drawing.Point(0, 24)
Me.lblversiondatum.Name = "lblversiondatum"
Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
Me.lblversiondatum.TabIndex = 2
Me.lblversiondatum.Text = "Version "
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'frmSplash
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(463, 334)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.PictureBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmSplash"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmSplash"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents lblVersion As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,15 @@
Public Class frmSplash
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
Me.lblVersiondatum.text = Globals.Versionsdatum
End Sub
End Class