Start 2

Dokumentation/Administration/NWEdit.Designer.vb

@@ -0,0 +1,475 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class NWEdit
+    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(NWEdit))
+        Me.PanDebug = New System.Windows.Forms.Panel()
+        Me.CmdTest = New System.Windows.Forms.Button()
+        Me.LblTest = New System.Windows.Forms.Label()
+        Me.LblInfo = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.TxtHostbereich = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TxtNWBits = New System.Windows.Forms.TextBox()
+        Me.ChkDHCPAnzeigen = New System.Windows.Forms.CheckBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TxtDHCPBereichEnde = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TxtInfo = New System.Windows.Forms.TextBox()
+        Me.TxtDNSServer = New System.Windows.Forms.TextBox()
+        Me.TxtNetzwerk = New System.Windows.Forms.TextBox()
+        Me.LblNetzwerk = New System.Windows.Forms.Label()
+        Me.CmdReset = New System.Windows.Forms.Button()
+        Me.TxtSubnet = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TxtVLAN = New System.Windows.Forms.TextBox()
+        Me.TxtGateway = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TxtDHCPServer = New System.Windows.Forms.TextBox()
+        Me.LblVLANName = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.CmdSave = New System.Windows.Forms.Button()
+        Me.TxtDHCPBereichStart = New System.Windows.Forms.TextBox()
+        Me.CmdAbbrechen = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DebugToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
+        Me.PanDebug.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'PanDebug
+        '
+        Me.PanDebug.Controls.Add(Me.CmdTest)
+        Me.PanDebug.Controls.Add(Me.LblTest)
+        Me.PanDebug.Location = New System.Drawing.Point(12, 583)
+        Me.PanDebug.Name = "PanDebug"
+        Me.PanDebug.Size = New System.Drawing.Size(353, 155)
+        Me.PanDebug.TabIndex = 39
+        Me.PanDebug.Visible = False
+        '
+        'CmdTest
+        '
+        Me.CmdTest.Location = New System.Drawing.Point(29, 31)
+        Me.CmdTest.Name = "CmdTest"
+        Me.CmdTest.Size = New System.Drawing.Size(75, 23)
+        Me.CmdTest.TabIndex = 34
+        Me.CmdTest.Text = "Test"
+        Me.CmdTest.UseVisualStyleBackColor = True
+        '
+        'LblTest
+        '
+        Me.LblTest.AutoSize = True
+        Me.LblTest.Location = New System.Drawing.Point(26, 57)
+        Me.LblTest.Name = "LblTest"
+        Me.LblTest.Size = New System.Drawing.Size(39, 13)
+        Me.LblTest.TabIndex = 35
+        Me.LblTest.Text = "Label7"
+        '
+        'LblInfo
+        '
+        Me.LblInfo.AutoSize = True
+        Me.LblInfo.Location = New System.Drawing.Point(26, 427)
+        Me.LblInfo.Name = "LblInfo"
+        Me.LblInfo.Size = New System.Drawing.Size(87, 13)
+        Me.LblInfo.TabIndex = 36
+        Me.LblInfo.Text = "Netzwerkbereich"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.TxtHostbereich)
+        Me.Panel1.Controls.Add(Me.LblInfo)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Controls.Add(Me.TxtNWBits)
+        Me.Panel1.Controls.Add(Me.ChkDHCPAnzeigen)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.TxtDHCPBereichEnde)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.TxtInfo)
+        Me.Panel1.Controls.Add(Me.TxtDNSServer)
+        Me.Panel1.Controls.Add(Me.TxtNetzwerk)
+        Me.Panel1.Controls.Add(Me.LblNetzwerk)
+        Me.Panel1.Controls.Add(Me.CmdReset)
+        Me.Panel1.Controls.Add(Me.TxtSubnet)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.TxtVLAN)
+        Me.Panel1.Controls.Add(Me.TxtGateway)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.TxtDHCPServer)
+        Me.Panel1.Controls.Add(Me.LblVLANName)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.CmdSave)
+        Me.Panel1.Controls.Add(Me.TxtDHCPBereichStart)
+        Me.Panel1.Controls.Add(Me.CmdAbbrechen)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Location = New System.Drawing.Point(12, 27)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(311, 452)
+        Me.Panel1.TabIndex = 40
+        '
+        'TxtHostbereich
+        '
+        Me.TxtHostbereich.Enabled = False
+        Me.TxtHostbereich.Location = New System.Drawing.Point(91, 106)
+        Me.TxtHostbereich.Name = "TxtHostbereich"
+        Me.TxtHostbereich.Size = New System.Drawing.Size(186, 20)
+        Me.TxtHostbereich.TabIndex = 4
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(18, 109)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(67, 13)
+        Me.Label10.TabIndex = 42
+        Me.Label10.Text = "Hostbereich:"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(231, 57)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(12, 13)
+        Me.Label7.TabIndex = 41
+        Me.Label7.Text = "/"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'TxtNWBits
+        '
+        Me.TxtNWBits.Location = New System.Drawing.Point(244, 54)
+        Me.TxtNWBits.Name = "TxtNWBits"
+        Me.TxtNWBits.Size = New System.Drawing.Size(33, 20)
+        Me.TxtNWBits.TabIndex = 2
+        '
+        'ChkDHCPAnzeigen
+        '
+        Me.ChkDHCPAnzeigen.AutoSize = True
+        Me.ChkDHCPAnzeigen.Location = New System.Drawing.Point(206, 187)
+        Me.ChkDHCPAnzeigen.Name = "ChkDHCPAnzeigen"
+        Me.ChkDHCPAnzeigen.Size = New System.Drawing.Size(76, 17)
+        Me.ChkDHCPAnzeigen.TabIndex = 9
+        Me.ChkDHCPAnzeigen.Text = "Anzeigen?"
+        Me.ChkDHCPAnzeigen.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(134, 187)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(24, 13)
+        Me.Label9.TabIndex = 38
+        Me.Label9.Text = "Bis:"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'TxtDHCPBereichEnde
+        '
+        Me.TxtDHCPBereichEnde.Location = New System.Drawing.Point(160, 184)
+        Me.TxtDHCPBereichEnde.MaxLength = 3
+        Me.TxtDHCPBereichEnde.Name = "TxtDHCPBereichEnde"
+        Me.TxtDHCPBereichEnde.Size = New System.Drawing.Size(42, 20)
+        Me.TxtDHCPBereichEnde.TabIndex = 8
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(57, 265)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(28, 13)
+        Me.Label8.TabIndex = 32
+        Me.Label8.Text = "Info:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'TxtInfo
+        '
+        Me.TxtInfo.Location = New System.Drawing.Point(91, 262)
+        Me.TxtInfo.Multiline = True
+        Me.TxtInfo.Name = "TxtInfo"
+        Me.TxtInfo.Size = New System.Drawing.Size(186, 65)
+        Me.TxtInfo.TabIndex = 12
+        '
+        'TxtDNSServer
+        '
+        Me.TxtDNSServer.Location = New System.Drawing.Point(91, 210)
+        Me.TxtDNSServer.Name = "TxtDNSServer"
+        Me.TxtDNSServer.Size = New System.Drawing.Size(186, 20)
+        Me.TxtDNSServer.TabIndex = 10
+        '
+        'TxtNetzwerk
+        '
+        Me.TxtNetzwerk.Location = New System.Drawing.Point(91, 54)
+        Me.TxtNetzwerk.Name = "TxtNetzwerk"
+        Me.TxtNetzwerk.Size = New System.Drawing.Size(138, 20)
+        Me.TxtNetzwerk.TabIndex = 1
+        '
+        'LblNetzwerk
+        '
+        Me.LblNetzwerk.AutoSize = True
+        Me.LblNetzwerk.Location = New System.Drawing.Point(30, 57)
+        Me.LblNetzwerk.Name = "LblNetzwerk"
+        Me.LblNetzwerk.Size = New System.Drawing.Size(55, 13)
+        Me.LblNetzwerk.TabIndex = 15
+        Me.LblNetzwerk.Text = "Netzwerk:"
+        Me.LblNetzwerk.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'CmdReset
+        '
+        Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdReset.Location = New System.Drawing.Point(202, 348)
+        Me.CmdReset.Name = "CmdReset"
+        Me.CmdReset.Size = New System.Drawing.Size(75, 23)
+        Me.CmdReset.TabIndex = 29
+        Me.CmdReset.Text = "Reset"
+        Me.CmdReset.UseVisualStyleBackColor = False
+        '
+        'TxtSubnet
+        '
+        Me.TxtSubnet.Location = New System.Drawing.Point(91, 80)
+        Me.TxtSubnet.Name = "TxtSubnet"
+        Me.TxtSubnet.Size = New System.Drawing.Size(186, 20)
+        Me.TxtSubnet.TabIndex = 3
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(47, 239)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(38, 13)
+        Me.Label6.TabIndex = 28
+        Me.Label6.Text = "VLAN:"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(41, 83)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(44, 13)
+        Me.Label2.TabIndex = 18
+        Me.Label2.Text = "Subnet:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'TxtVLAN
+        '
+        Me.TxtVLAN.Location = New System.Drawing.Point(91, 236)
+        Me.TxtVLAN.Name = "TxtVLAN"
+        Me.TxtVLAN.Size = New System.Drawing.Size(186, 20)
+        Me.TxtVLAN.TabIndex = 11
+        '
+        'TxtGateway
+        '
+        Me.TxtGateway.Location = New System.Drawing.Point(91, 132)
+        Me.TxtGateway.Name = "TxtGateway"
+        Me.TxtGateway.Size = New System.Drawing.Size(186, 20)
+        Me.TxtGateway.TabIndex = 5
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(18, 213)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(67, 13)
+        Me.Label1.TabIndex = 26
+        Me.Label1.Text = "DNS Server:"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(33, 135)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(52, 13)
+        Me.Label3.TabIndex = 21
+        Me.Label3.Text = "Gateway:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'TxtDHCPServer
+        '
+        Me.TxtDHCPServer.Location = New System.Drawing.Point(91, 158)
+        Me.TxtDHCPServer.Name = "TxtDHCPServer"
+        Me.TxtDHCPServer.Size = New System.Drawing.Size(186, 20)
+        Me.TxtDHCPServer.TabIndex = 6
+        '
+        'LblVLANName
+        '
+        Me.LblVLANName.AutoSize = True
+        Me.LblVLANName.Location = New System.Drawing.Point(55, 24)
+        Me.LblVLANName.Name = "LblVLANName"
+        Me.LblVLANName.Size = New System.Drawing.Size(78, 13)
+        Me.LblVLANName.TabIndex = 24
+        Me.LblVLANName.Text = "Netzwerkname"
+        Me.LblVLANName.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(11, 161)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(74, 13)
+        Me.Label4.TabIndex = 22
+        Me.Label4.Text = "DHCP Server:"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'CmdSave
+        '
+        Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdSave.Location = New System.Drawing.Point(91, 348)
+        Me.CmdSave.Name = "CmdSave"
+        Me.CmdSave.Size = New System.Drawing.Size(75, 23)
+        Me.CmdSave.TabIndex = 19
+        Me.CmdSave.Text = "Speichern"
+        Me.CmdSave.UseVisualStyleBackColor = False
+        '
+        'TxtDHCPBereichStart
+        '
+        Me.TxtDHCPBereichStart.Location = New System.Drawing.Point(91, 184)
+        Me.TxtDHCPBereichStart.MaxLength = 3
+        Me.TxtDHCPBereichStart.Name = "TxtDHCPBereichStart"
+        Me.TxtDHCPBereichStart.Size = New System.Drawing.Size(42, 20)
+        Me.TxtDHCPBereichStart.TabIndex = 7
+        '
+        'CmdAbbrechen
+        '
+        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.CmdAbbrechen.Location = New System.Drawing.Point(202, 377)
+        Me.CmdAbbrechen.Name = "CmdAbbrechen"
+        Me.CmdAbbrechen.Size = New System.Drawing.Size(75, 23)
+        Me.CmdAbbrechen.TabIndex = 10
+        Me.CmdAbbrechen.Text = "Schließen"
+        Me.CmdAbbrechen.UseVisualStyleBackColor = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 187)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(79, 13)
+        Me.Label5.TabIndex = 23
+        Me.Label5.Text = "DHCP Bereich:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.BackColor = System.Drawing.SystemColors.GradientActiveCaption
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExtrasToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(475, 24)
+        Me.MenuStrip1.TabIndex = 41
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'ExtrasToolStripMenuItem
+        '
+        Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DebugToolStripMenuItem})
+        Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
+        Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
+        Me.ExtrasToolStripMenuItem.Text = "Extras"
+        '
+        'DebugToolStripMenuItem
+        '
+        Me.DebugToolStripMenuItem.Name = "DebugToolStripMenuItem"
+        Me.DebugToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
+        Me.DebugToolStripMenuItem.Text = "Debug"
+        '
+        'Timer3
+        '
+        Me.Timer3.Interval = 3000
+        '
+        'NWEdit
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.ClientSize = New System.Drawing.Size(475, 814)
+        Me.Controls.Add(Me.PanDebug)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "NWEdit"
+        Me.Text = "NWEdit"
+        Me.PanDebug.ResumeLayout(False)
+        Me.PanDebug.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents PanDebug As Panel
+    Friend WithEvents CmdTest As Button
+    Friend WithEvents LblTest As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TxtInfo As TextBox
+    Friend WithEvents TxtDNSServer As TextBox
+    Friend WithEvents TxtNetzwerk As TextBox
+    Friend WithEvents LblNetzwerk As Label
+    Friend WithEvents CmdReset As Button
+    Friend WithEvents TxtSubnet As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TxtVLAN As TextBox
+    Friend WithEvents TxtGateway As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TxtDHCPServer As TextBox
+    Friend WithEvents LblVLANName As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents CmdSave As Button
+    Friend WithEvents TxtDHCPBereichStart As TextBox
+    Friend WithEvents CmdAbbrechen As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents ExtrasToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DebugToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TxtDHCPBereichEnde As TextBox
+    Friend WithEvents ChkDHCPAnzeigen As CheckBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents LblInfo As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents TxtNWBits As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TxtHostbereich As TextBox
+    Friend WithEvents Timer3 As Timer
+End Class