Dumdidummdummda

This commit is contained in:
ms
2020-09-22 09:43:22 +02:00
parent cacc473821
commit 82e83c6a70
16 changed files with 432 additions and 125 deletions

View File

@@ -24,7 +24,7 @@ Partial Class Main
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
@@ -60,6 +60,8 @@ Partial Class Main
Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.chkPano = New System.Windows.Forms.CheckBox()
Me.btnTSSitzungen = New System.Windows.Forms.Button()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
@@ -134,7 +136,7 @@ Partial Class Main
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1614, 130)
Me.Panel2.Size = New System.Drawing.Size(1697, 130)
Me.Panel2.TabIndex = 1
'
'Panel4
@@ -154,7 +156,7 @@ Partial Class Main
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(272, 24)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1342, 106)
Me.Panel4.Size = New System.Drawing.Size(1425, 106)
Me.Panel4.TabIndex = 14
'
'Button1
@@ -186,7 +188,7 @@ Partial Class Main
'
Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblVersion.AutoSize = True
Me.LblVersion.Location = New System.Drawing.Point(995, 81)
Me.LblVersion.Location = New System.Drawing.Point(1078, 81)
Me.LblVersion.Name = "LblVersion"
Me.LblVersion.Size = New System.Drawing.Size(42, 13)
Me.LblVersion.TabIndex = 17
@@ -207,7 +209,7 @@ Partial Class Main
Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdSucheReset.Location = New System.Drawing.Point(846, 71)
Me.CmdSucheReset.Location = New System.Drawing.Point(929, 71)
Me.CmdSucheReset.Name = "CmdSucheReset"
Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
Me.CmdSucheReset.TabIndex = 15
@@ -218,7 +220,7 @@ Partial Class Main
'
Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.TxtSuche.Location = New System.Drawing.Point(660, 23)
Me.TxtSuche.Location = New System.Drawing.Point(743, 23)
Me.TxtSuche.Name = "TxtSuche"
Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
Me.TxtSuche.TabIndex = 3
@@ -228,7 +230,7 @@ Partial Class Main
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(613, 26)
Me.Label1.Location = New System.Drawing.Point(696, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 4
@@ -239,7 +241,7 @@ Partial Class Main
Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PanType.Controls.Add(Me.LstType)
Me.PanType.Controls.Add(Me.Label2)
Me.PanType.Location = New System.Drawing.Point(804, 5)
Me.PanType.Location = New System.Drawing.Point(887, 5)
Me.PanType.Name = "PanType"
Me.PanType.Size = New System.Drawing.Size(183, 41)
Me.PanType.TabIndex = 12
@@ -267,7 +269,7 @@ Partial Class Main
'
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(998, 2)
Me.PictureBox1.Location = New System.Drawing.Point(1081, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
Me.PictureBox1.TabIndex = 1
@@ -279,7 +281,7 @@ Partial Class Main
Me.PanSuche.Controls.Add(Me.RadGlobal)
Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
Me.PanSuche.Controls.Add(Me.RadStandort)
Me.PanSuche.Location = New System.Drawing.Point(660, 49)
Me.PanSuche.Location = New System.Drawing.Point(743, 49)
Me.PanSuche.Name = "PanSuche"
Me.PanSuche.Size = New System.Drawing.Size(314, 31)
Me.PanSuche.TabIndex = 11
@@ -351,7 +353,7 @@ Partial Class Main
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1614, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1697, 24)
Me.MenuStrip1.TabIndex = 2
Me.MenuStrip1.Text = "MenuStrip1"
'
@@ -359,60 +361,60 @@ Partial Class Main
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.AllesSichernCSVToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(49, 20)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(50, 20)
Me.ToolStripMenuItem1.Text = "Extras"
'
'NetzwerkeToolStripMenuItem
'
Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
'
'AnsichtDruckenToolStripMenuItem
'
Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
'
'ExportToolStripMenuItem
'
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.ExportToolStripMenuItem.Text = "Export"
'
'ImportToolStripMenuItem
'
Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.ImportToolStripMenuItem.Text = "Import"
'
'BenutzerToolStripMenuItem
'
Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.BenutzerToolStripMenuItem.Text = "Benutzer"
'
'AllesSichernCSVToolStripMenuItem
'
Me.AllesSichernCSVToolStripMenuItem.Name = "AllesSichernCSVToolStripMenuItem"
Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(173, 6)
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'ExitToolStripMenuItem
'
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
Me.ExitToolStripMenuItem.Text = "Exit"
'
'ToolStripMenuItem2
@@ -434,7 +436,7 @@ Partial Class Main
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 695)
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 685)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
@@ -444,6 +446,8 @@ Partial Class Main
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.chkPano)
Me.Panel3.Controls.Add(Me.btnTSSitzungen)
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.picAVISOMessenger)
Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung)
@@ -465,16 +469,41 @@ Partial Class Main
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(0, 130)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(200, 921)
Me.Panel3.Size = New System.Drawing.Size(200, 863)
Me.Panel3.TabIndex = 2
'
'chkPano
'
Me.chkPano.AutoSize = True
Me.chkPano.Location = New System.Drawing.Point(25, 826)
Me.chkPano.Name = "chkPano"
Me.chkPano.Size = New System.Drawing.Size(51, 17)
Me.chkPano.TabIndex = 44
Me.chkPano.Text = "Pano"
Me.chkPano.UseVisualStyleBackColor = True
Me.chkPano.Visible = False
'
'btnTSSitzungen
'
Me.btnTSSitzungen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnTSSitzungen.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnTSSitzungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTSSitzungen.Image = Global.Dokumentation.My.Resources.Resources.external_content_duckduckgo_com
Me.btnTSSitzungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTSSitzungen.Location = New System.Drawing.Point(25, 719)
Me.btnTSSitzungen.Name = "btnTSSitzungen"
Me.btnTSSitzungen.Size = New System.Drawing.Size(151, 28)
Me.btnTSSitzungen.TabIndex = 43
Me.btnTSSitzungen.Text = "TS Sitzungen"
Me.btnTSSitzungen.UseVisualStyleBackColor = False
'
'Label20
'
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(148, 862)
Me.Label20.Location = New System.Drawing.Point(148, 804)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 42
@@ -488,7 +517,7 @@ Partial Class Main
Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(107, 821)
Me.picAVISOMessenger.Location = New System.Drawing.Point(135, 805)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 41
@@ -497,7 +526,7 @@ Partial Class Main
'chkTSSitzungen
'
Me.chkTSSitzungen.AutoSize = True
Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 744)
Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 757)
Me.chkTSSitzungen.Name = "chkTSSitzungen"
Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
Me.chkTSSitzungen.TabIndex = 19
@@ -638,7 +667,7 @@ Partial Class Main
'ChkTools
'
Me.ChkTools.AutoSize = True
Me.ChkTools.Location = New System.Drawing.Point(25, 790)
Me.ChkTools.Location = New System.Drawing.Point(25, 803)
Me.ChkTools.Name = "ChkTools"
Me.ChkTools.Size = New System.Drawing.Size(107, 17)
Me.ChkTools.TabIndex = 10
@@ -662,7 +691,7 @@ Partial Class Main
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 767)
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 780)
Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
Me.ChKZugangsdaten.TabIndex = 4
@@ -690,7 +719,7 @@ Partial Class Main
'CMdTest2
'
Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
Me.CMdTest2.Location = New System.Drawing.Point(974, 0)
Me.CMdTest2.Location = New System.Drawing.Point(988, 0)
Me.CMdTest2.Name = "CMdTest2"
Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
Me.CMdTest2.TabIndex = 3
@@ -700,7 +729,7 @@ Partial Class Main
'CmdTest
'
Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
Me.CmdTest.Location = New System.Drawing.Point(899, 0)
Me.CmdTest.Location = New System.Drawing.Point(913, 0)
Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 100)
Me.CmdTest.TabIndex = 2
@@ -725,14 +754,14 @@ Partial Class Main
Me.DgVMain.AllowUserToDeleteRows = False
Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
@@ -743,7 +772,7 @@ Partial Class Main
Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
Me.DgVMain.RowHeadersVisible = False
Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DgVMain.Size = New System.Drawing.Size(1049, 821)
Me.DgVMain.Size = New System.Drawing.Size(1063, 763)
Me.DgVMain.TabIndex = 3
'
'DGVMainContext
@@ -846,9 +875,9 @@ Partial Class Main
Me.PanTools.Controls.Add(Me.CmdTest)
Me.PanTools.Controls.Add(Me.CMdTest2)
Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanTools.Location = New System.Drawing.Point(200, 951)
Me.PanTools.Location = New System.Drawing.Point(200, 893)
Me.PanTools.Name = "PanTools"
Me.PanTools.Size = New System.Drawing.Size(1049, 100)
Me.PanTools.Size = New System.Drawing.Size(1063, 100)
Me.PanTools.TabIndex = 4
Me.PanTools.Visible = False
'
@@ -867,7 +896,7 @@ Partial Class Main
'btnTest3
'
Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
Me.btnTest3.Location = New System.Drawing.Point(824, 0)
Me.btnTest3.Location = New System.Drawing.Point(838, 0)
Me.btnTest3.Name = "btnTest3"
Me.btnTest3.Size = New System.Drawing.Size(75, 100)
Me.btnTest3.TabIndex = 13
@@ -918,9 +947,9 @@ Partial Class Main
'panTSSitzungen
'
Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
Me.panTSSitzungen.Location = New System.Drawing.Point(1249, 130)
Me.panTSSitzungen.Location = New System.Drawing.Point(1263, 130)
Me.panTSSitzungen.Name = "panTSSitzungen"
Me.panTSSitzungen.Size = New System.Drawing.Size(365, 921)
Me.panTSSitzungen.Size = New System.Drawing.Size(434, 863)
Me.panTSSitzungen.TabIndex = 5
Me.panTSSitzungen.Visible = False
'
@@ -933,7 +962,7 @@ Partial Class Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1614, 1051)
Me.ClientSize = New System.Drawing.Size(1697, 993)
Me.Controls.Add(Me.DgVMain)
Me.Controls.Add(Me.PanTools)
Me.Controls.Add(Me.panTSSitzungen)
@@ -980,7 +1009,6 @@ Partial Class Main
Friend WithEvents LblUhrzeit As Label
Friend WithEvents LblNetzwerkinfo As Label
Friend WithEvents CmdNetzwerkbearbeiten As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents NetzwerkeToolStripMenuItem As ToolStripMenuItem
@@ -1054,4 +1082,7 @@ Partial Class Main
Friend WithEvents Timer_Refresh As Timer
Friend WithEvents Timer1 As Timer
Friend WithEvents Button1 As Button
Public WithEvents PictureBox1 As PictureBox
Friend WithEvents btnTSSitzungen As Button
Friend WithEvents chkPano As CheckBox
End Class