Vermerk kann nun geschlossen werden!

Aviso/frmInsertVermerkFach.Designer.vb

@@ -41,6 +41,7 @@ Partial Class frmInsertVermerkFach
         Me.btnRHENUS = New System.Windows.Forms.Button()
         Me.btnTan = New System.Windows.Forms.Button()
         Me.lbl = New System.Windows.Forms.Label()
+        Me.btnCLose = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -53,6 +54,7 @@ Partial Class frmInsertVermerkFach
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnCLose)
         Me.pnl.Controls.Add(Me.Button3)
         Me.pnl.Controls.Add(Me.PictureBox3)
         Me.pnl.Controls.Add(Me.PictureBox4)
@@ -258,6 +260,23 @@ Partial Class frmInsertVermerkFach
         Me.lbl.TabIndex = 0
         Me.lbl.Text = "Wo befindet sich der Akt?"
         '
+        'btnCLose
+        '
+        Me.btnCLose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnCLose.BackColor = System.Drawing.Color.Red
+        Me.btnCLose.FlatAppearance.BorderColor = System.Drawing.Color.White
+        Me.btnCLose.FlatAppearance.BorderSize = 0
+        Me.btnCLose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCLose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnCLose.ForeColor = System.Drawing.Color.White
+        Me.btnCLose.Location = New System.Drawing.Point(243, -1)
+        Me.btnCLose.Name = "btnCLose"
+        Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.btnCLose.Size = New System.Drawing.Size(54, 20)
+        Me.btnCLose.TabIndex = 11
+        Me.btnCLose.Text = "X"
+        Me.btnCLose.UseVisualStyleBackColor = False
+        '
         'frmInsertVermerkFach
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -297,4 +316,5 @@ Partial Class frmInsertVermerkFach
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Button3 As Button
+    Friend WithEvents btnCLose As Button
 End Class

Aviso/frmInsertVermerkFach.vb

@@ -73,4 +73,8 @@ Public Class frmInsertVermerkFach
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
         vermerk("DIGITALER AKT")
     End Sub
+
+    Private Sub btnCLose_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
+        Me.Close()
+    End Sub
 End Class