Verzollungspreise,getSig,VERIMEX_ATEZ(NCTSAbr.)

2023-04-04 16:48:18 +02:00
parent 7cc8a40537
commit b655d20408
11 changed files with 242 additions and 159 deletions
--- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb
@@ -221,8 +221,15 @@ Partial Class usrCntlZOLLAuswertungen
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
+        Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
        Me.Label60 = New System.Windows.Forms.Label()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
@@ -244,13 +251,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Button14 = New System.Windows.Forms.Button()
        Me.PictureBox8 = New System.Windows.Forms.PictureBox()
        Me.pnl = New System.Windows.Forms.Panel()
-        Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
-        Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
-        Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
+        Me.Button22 = New System.Windows.Forms.Button()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1237,7 +1238,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.tbcntr.Location = New System.Drawing.Point(0, 57)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(728, 1829)
+        Me.tbcntr.Size = New System.Drawing.Size(711, 1829)
        Me.tbcntr.TabIndex = 22
        '
        'TabPage1
@@ -1280,7 +1281,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(720, 1803)
+        Me.TabPage1.Size = New System.Drawing.Size(703, 1803)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Bürgschaften"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -1290,7 +1291,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Label88.AutoSize = True
        Me.Label88.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label88.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label88.Location = New System.Drawing.Point(12, 1610)
+        Me.Label88.Location = New System.Drawing.Point(12, 1666)
        Me.Label88.Name = "Label88"
        Me.Label88.Size = New System.Drawing.Size(193, 17)
        Me.Label88.TabIndex = 35
@@ -1301,7 +1302,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Label82.AutoSize = True
        Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label82.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label82.Location = New System.Drawing.Point(12, 1477)
+        Me.Label82.Location = New System.Drawing.Point(12, 1533)
        Me.Label82.Name = "Label82"
        Me.Label82.Size = New System.Drawing.Size(213, 17)
        Me.Label82.TabIndex = 36
@@ -1320,7 +1321,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.GroupBox13.Controls.Add(Me.Label92)
        Me.GroupBox13.Controls.Add(Me.datAuswertVon_NCTSTR_AWOR)
        Me.GroupBox13.Controls.Add(Me.Label93)
-        Me.GroupBox13.Location = New System.Drawing.Point(9, 1625)
+        Me.GroupBox13.Location = New System.Drawing.Point(9, 1681)
        Me.GroupBox13.Name = "GroupBox13"
        Me.GroupBox13.Size = New System.Drawing.Size(705, 102)
        Me.GroupBox13.TabIndex = 34
@@ -1452,7 +1453,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.GroupBox12.Controls.Add(Me.Label86)
        Me.GroupBox12.Controls.Add(Me.datAuswertVon_NCTSTR_UNISPED)
        Me.GroupBox12.Controls.Add(Me.Label87)
-        Me.GroupBox12.Location = New System.Drawing.Point(9, 1492)
+        Me.GroupBox12.Location = New System.Drawing.Point(9, 1548)
        Me.GroupBox12.Name = "GroupBox12"
        Me.GroupBox12.Size = New System.Drawing.Size(705, 102)
        Me.GroupBox12.TabIndex = 35
@@ -1574,6 +1575,7 @@ Partial Class usrCntlZOLLAuswertungen
        '
        'GroupBox11
        '
+        Me.GroupBox11.Controls.Add(Me.Button22)
        Me.GroupBox11.Controls.Add(Me.Button19)
        Me.GroupBox11.Controls.Add(Me.Button18)
        Me.GroupBox11.Controls.Add(Me.PictureBox10)
@@ -1588,7 +1590,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.GroupBox11.Controls.Add(Me.Label81)
        Me.GroupBox11.Location = New System.Drawing.Point(9, 1355)
        Me.GroupBox11.Name = "GroupBox11"
-        Me.GroupBox11.Size = New System.Drawing.Size(705, 102)
+        Me.GroupBox11.Size = New System.Drawing.Size(705, 164)
        Me.GroupBox11.TabIndex = 32
        Me.GroupBox11.TabStop = False
        '
@@ -2408,11 +2410,29 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(737, 1803)
+        Me.TabPage2.Size = New System.Drawing.Size(720, 1803)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Kunden"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'UsrCntlAuswertungenUIDPruefung1
+        '
+        Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
+        Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
+        Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
+        Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
+        '
+        'UsrCntlAuswertungenKunden_Auftragsrueckgang1
+        '
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
+        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1)
@@ -2421,22 +2441,62 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(737, 1803)
+        Me.TabPage3.Size = New System.Drawing.Size(720, 1803)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        'UsrCntlAuswertungenEV_Veranlagungen1
+        '
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
+        '
+        'UsrCntlAuswertungenFiskal_IntrastatMeldung1
+        '
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
+        '
+        'UsrCntlAuswertungenFiskalvertretung_42001
+        '
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
+        '
        'TabPage4
        '
        Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1)
        Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(737, 1803)
+        Me.TabPage4.Size = New System.Drawing.Size(720, 1803)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Aufschubdaten"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
+        '
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
+        '
+        'UsrCntlAuswertungenAufschub_Abgabenliste1
+        '
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
+        '
        'TabPage5
        '
        Me.TabPage5.Controls.Add(Me.Label60)
@@ -2445,7 +2505,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(737, 1803)
+        Me.TabPage5.Size = New System.Drawing.Size(720, 1803)
        Me.TabPage5.TabIndex = 4
        Me.TabPage5.Text = "UNISPED"
        Me.TabPage5.UseVisualStyleBackColor = True
@@ -2653,66 +2713,19 @@ Partial Class usrCntlZOLLAuswertungen
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(728, 57)
+        Me.pnl.Size = New System.Drawing.Size(711, 57)
        Me.pnl.TabIndex = 23
        '
-        'UsrCntlAuswertungenUIDPruefung1
+        'Button22
        '
-        Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
-        Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
-        Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
-        Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
-        '
-        'UsrCntlAuswertungenKunden_Auftragsrueckgang1
-        '
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
-        '
-        'UsrCntlAuswertungenEV_Veranlagungen1
-        '
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
-        '
-        'UsrCntlAuswertungenFiskal_IntrastatMeldung1
-        '
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
-        '
-        'UsrCntlAuswertungenFiskalvertretung_42001
-        '
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
-        '
-        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
-        '
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
-        '
-        'UsrCntlAuswertungenAufschub_Abgabenliste1
-        '
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
+        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button22.Location = New System.Drawing.Point(6, 95)
+        Me.Button22.Name = "Button22"
+        Me.Button22.Size = New System.Drawing.Size(121, 37)
+        Me.Button22.TabIndex = 16
+        Me.Button22.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ATEZ)"
+        Me.Button22.UseVisualStyleBackColor = True
        '
        'usrCntlZOLLAuswertungen
        '
@@ -2723,7 +2736,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Controls.Add(Me.tbcntr)
        Me.Controls.Add(Me.pnl)
        Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(728, 1445)
+        Me.Size = New System.Drawing.Size(711, 1445)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
@@ -3014,4 +3027,5 @@ Partial Class usrCntlZOLLAuswertungen
    Friend WithEvents Label86 As Label
    Friend WithEvents datAuswertVon_NCTSTR_UNISPED As DateTimePicker
    Friend WithEvents Label87 As Label
+    Friend WithEvents Button22 As Button
 End Class
--- a/SDL/zoll/usrCntlZOLLAuswertungen.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb
@@ -764,4 +764,10 @@ Public Class usrCntlZOLLAuswertungen
        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_UNISPED.Text, datAuswertBis_NCTSTR_UNISPED.Text, "MIC_UNISPED")
        frmPrintLayout.Show()
    End Sub
+
+    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
+        Dim frmPrintLayout As New frmPrintLayout()
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_ATEZ")
+        frmPrintLayout.Show()
+    End Sub
 End Class