Projektdateien hinzufügen.

Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.Designer.vb

@@ -0,0 +1,40 @@
+Partial Class MyTextCheckBox
+    Inherits System.Windows.Forms.TextBox
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New(ByVal container As System.ComponentModel.IContainer)
+        MyClass.New()
+
+        'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
+        If (container IsNot Nothing) Then
+            container.Add(Me)
+        End If
+
+    End Sub
+
+
+
+    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    <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 Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container()
+    End Sub
+
+End Class

Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.vb

@@ -0,0 +1,50 @@
+Imports Gemeinsames
+Imports System.ComponentModel
+
+Public Class MyTextCheckBox
+    Inherits System.Windows.Forms.TextBox
+
+   
+
+    Public Sub New()
+        Me.ShortcutsEnabled = False
+        Me.Width = 20
+        Me.Height = 20
+        Me.ReadOnly = True
+        Me.Cursor = Cursors.Hand
+    End Sub
+
+    Private Sub MyTextCheckBox_Click(sender As Object, e As EventArgs) Handles Me.Click
+        Dim small As New Font(Me.Font.FontFamily, 6)
+        Dim big As New Font(Me.Font.FontFamily, 8.25)
+        Me.Font = big
+        Select Case Me.Text
+            Case "" : Me.Text = "X"
+            Case "X" : Me.Text = "BAR" : Me.Font = small
+            Case "BAR" : Me.Text = ""
+        End Select
+
+    End Sub
+
+    ' Private Sub MyTextCheckBox_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
+    '     Me.SelectedText = ""
+    ' End Sub
+
+
+    Private bool As Boolean = False
+    Private Sub TextBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
+        bool = True
+    End Sub
+
+    Private Sub TextBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
+        If bool Then
+            Me.SelectionStart = Me.TextLength
+        End If
+    End Sub
+
+    Private Sub TextBox1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
+        bool = False
+    End Sub
+
+
+End Class

Aviso/Benutzerdefinierte Elemente/SendTAB.Designer.vb

@@ -0,0 +1,129 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class sendTAB
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl ü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(sendTAB))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblAuftr = New System.Windows.Forms.Label()
+        Me.lblAbfBez = New System.Windows.Forms.Label()
+        Me.lblNr = New System.Windows.Forms.Label()
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.SendungDuplizierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.cntxt.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.LightGray
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Controls.Add(Me.lblAuftr)
+        Me.pnl.Controls.Add(Me.lblAbfBez)
+        Me.pnl.Controls.Add(Me.lblNr)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Margin = New System.Windows.Forms.Padding(0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(90, 50)
+        Me.pnl.TabIndex = 0
+        '
+        'pic
+        '
+        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.pic.Image = CType(resources.GetObject("pic.Image"), System.Drawing.Image)
+        Me.pic.Location = New System.Drawing.Point(78, 2)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(10, 10)
+        Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.pic.TabIndex = 3
+        Me.pic.TabStop = False
+        '
+        'lblAuftr
+        '
+        Me.lblAuftr.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblAuftr.Location = New System.Drawing.Point(3, 19)
+        Me.lblAuftr.Name = "lblAuftr"
+        Me.lblAuftr.Size = New System.Drawing.Size(86, 31)
+        Me.lblAuftr.TabIndex = 2
+        Me.lblAuftr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblAbfBez
+        '
+        Me.lblAbfBez.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblAbfBez.Location = New System.Drawing.Point(20, 3)
+        Me.lblAbfBez.Name = "lblAbfBez"
+        Me.lblAbfBez.Size = New System.Drawing.Size(69, 13)
+        Me.lblAbfBez.TabIndex = 1
+        Me.lblAbfBez.Text = "-"
+        '
+        'lblNr
+        '
+        Me.lblNr.AutoSize = True
+        Me.lblNr.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblNr.Location = New System.Drawing.Point(1, 3)
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Size = New System.Drawing.Size(25, 13)
+        Me.lblNr.TabIndex = 0
+        Me.lblNr.Text = "10."
+        '
+        'cntxt
+        '
+        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SendungDuplizierenToolStripMenuItem})
+        Me.cntxt.Name = "cntxt"
+        Me.cntxt.Size = New System.Drawing.Size(184, 48)
+        '
+        'SendungDuplizierenToolStripMenuItem
+        '
+        Me.SendungDuplizierenToolStripMenuItem.Name = "SendungDuplizierenToolStripMenuItem"
+        Me.SendungDuplizierenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
+        Me.SendungDuplizierenToolStripMenuItem.Text = "Sendung Duplizieren"
+        '
+        'sendTAB
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.LightGray
+        Me.Controls.Add(Me.pnl)
+        Me.Margin = New System.Windows.Forms.Padding(2, 2, 0, 0)
+        Me.Name = "sendTAB"
+        Me.Size = New System.Drawing.Size(90, 50)
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.cntxt.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Public WithEvents lblAuftr As System.Windows.Forms.Label
+    Public WithEvents lblAbfBez As System.Windows.Forms.Label
+    Public WithEvents lblNr As System.Windows.Forms.Label
+    Public WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents cntxt As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents SendungDuplizierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+
+End Class

Aviso/Benutzerdefinierte Elemente/SendTAB.resx

@@ -0,0 +1,183 @@
+<?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="pic.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
+        DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
+        bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
+        sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
+        AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
+        JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
+        3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
+        li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
+        ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
+        wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
+        hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
+        4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
+        VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
+        5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
+        qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
+        j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
+        1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
+        rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
+        fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
+        B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
+        yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
+        YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
+        yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
+        vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
+        vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
+        Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
+        bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
+        llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
+        ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
+        xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
+        eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
+        YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
+        XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
+        WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
+        xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
+        dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
+        V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
+        Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
+        Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
+        PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
+        0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
+        /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
+        XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
+        fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
+        tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
+        6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAAdtJREFUSEu91b8vX1Ec
+        xnG/F8IiUWksTSr+Af+AoQYGtYrFJoLBn/BFLDaJRBNiYrAZDZams6QpdpWIVjo1EcL1PnKOfM65z/3e
+        izC8kt7PeT7nSVSOhizL3pUcOrVarUnNX0sOHQq70KPOXkMOKRrAJn5VLSXX6Pe21HmQG7DwGYfIvEql
+        ZJqw4Xe2VcaJPgi2Yx03frFSKWe9WMYfhB1ZGn0QOjULKVnK7CN2fCaVK40+CIQfSZFcKd+L+O/PlX2b
+        f/pHQGAlWUg9lsL9guziDirn3OOvvT8qCwhVKV1LZsoVxu3dUZFFsKzUXabmwRlm0WnvjUpShMtKi5xg
+        WN2ZG6RYfEnpDBrVfbmBwvKeuayeA4yg8B2WwxQXLPgLy8yrfUsOAy7oxzf88xeW+Y26z6AcOiy2wZWp
+        i+uRL1Ighyx0Ywn2bXyOwtLcgGAf3AuiLrKOxMySpdGHQ2gV136pnilUeZE+2PujMidZUH5iEh0+X1Z6
+        bu+PyhwCE8mCdYkxsVNU6v6u/rDZaDEg9NUsBReYQ/Q2mh1VeoxBm4uWLIK21P1ffFE5i0wovYV7dYbQ
+        YjPRQopwKJ1W5wpZV/odn9R5bpBicQyt6qwI+VE0q7Pc4K3J4dvJGh4AKs9H2nJin04AAAAASUVORK5C
+        YII=
+</value>
+  </data>
+  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Aviso/Benutzerdefinierte Elemente/SendTAB.vb

@@ -0,0 +1,42 @@
+Public Class sendTAB
+    Public value = ""
+    Event MECLICK(sender As Object)
+    Event DEL(sender As Object)
+    Event RIGHTCLICK_COPYDATATO(fromIndex As Integer, toIndex As Integer)
+    Event RIGHTCLICK_DUPLICATE(fromIndex As Integer)
+
+    Dim list As List(Of MyListItem)
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click
+
+        RaiseEvent MECLICK(Me)
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            Me.ContextMenuStrip = cntxt
+            cntxt.Show(MousePosition)
+        End If
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If MsgBox("Möchten Sie diese Sendung wirklich löchen?", vbYesNoCancel) = MsgBoxResult.Yes Then
+            RaiseEvent DEL(Me)
+        End If
+    End Sub
+
+    Private Sub pic_MouseEnter(sender As Object, e As EventArgs) Handles pic.MouseEnter
+        pic.Image = My.Resources.del
+    End Sub
+    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
+        pic.Image = My.Resources.del_gray
+    End Sub
+
+    Private Sub SendungDuplizierenToolStripMenuItem_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub SendungDuplizierenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SendungDuplizierenToolStripMenuItem.Click
+        RaiseEvent RIGHTCLICK_DUPLICATE(CInt(Me.value))
+    End Sub
+End Class

Aviso/Benutzerdefinierte Elemente/TransparentControl.Designer.vb

@@ -0,0 +1,40 @@
+Partial Class TransparentControl
+    Inherits System.Windows.Forms.Control
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New(ByVal container As System.ComponentModel.IContainer)
+        MyClass.New()
+
+        'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
+        If (container IsNot Nothing) Then
+            container.Add(Me)
+        End If
+
+    End Sub
+
+   
+
+    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    <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 Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container()
+    End Sub
+
+End Class

Aviso/Benutzerdefinierte Elemente/TransparentControl.vb

@@ -0,0 +1,336 @@
+Imports System.ComponentModel
+Imports System.ComponentModel.Design
+Imports System.Windows.Forms
+Imports System.Drawing
+
+<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
+<Designer("System.Windows.Forms.Design.ParentControlDesigner, System.Design", GetType(IDesigner))> _
+<DesignerAttribute(GetType(TransparentControlDesigner))> _
+Public Class TransparentControl
+
+    Inherits Control
+
+#Region " Field "
+
+    Private m_transparent As Boolean
+    Private m_transparentColor As Color
+    Private m_opacity As Double
+    Private m_minSize As Size
+    Private m_backcolor As Color
+
+#End Region
+
+#Region " Constructor "
+
+    Public Sub New()
+
+        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
+        SetStyle(ControlStyles.Opaque, False)
+        SetStyle(ControlStyles.DoubleBuffer, True)
+        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
+        SetStyle(ControlStyles.UserPaint, True)
+        UpdateStyles()
+        m_minSize = New Size(100, 75)
+        m_transparent = False
+        m_transparentColor = Color.DodgerBlue
+        m_opacity = 1.0R
+        m_backcolor = Color.Transparent
+
+
+    End Sub
+
+#End Region
+
+#Region " Property "
+
+    <System.ComponentModel.Browsable(False)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
+    <System.ComponentModel.DefaultValue(GetType(Color), "Transparent")> _
+    <System.ComponentModel.Description("Set background color.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overrides Property BackColor() As System.Drawing.Color
+        Get
+            Return m_backcolor
+        End Get
+        Set(ByVal value As System.Drawing.Color)
+            m_backcolor = value
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(1.0R)> _
+    <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
+    <System.ComponentModel.Description("Set the opacity percentage of the control.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property Opacity() As Double
+        Get
+            Return m_opacity
+        End Get
+        Set(ByVal value As Double)
+            If value = m_opacity Then
+                Return
+            End If
+            m_opacity = value
+            UpdateStyles()
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
+    <System.ComponentModel.Description("Enable control trnasparency.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property Transparent() As Boolean
+        Get
+            Return m_transparent
+        End Get
+        Set(ByVal value As Boolean)
+            If value = m_transparent Then
+                Return
+            End If
+            m_transparent = value
+            Refresh()
+        End Set
+    End Property
+
+    <System.ComponentModel.Browsable(True)> _
+    <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
+    <System.ComponentModel.DefaultValue(GetType(Color), "DodgerBlue")> _
+    <System.ComponentModel.Description("Set the fill color of the control.")> _
+    <System.ComponentModel.Category("Control Style")> _
+    Public Overridable Property TransparentColor() As Color
+        Get
+            Return m_transparentColor
+        End Get
+        Set(ByVal value As Color)
+            m_transparentColor = value
+            Refresh()
+        End Set
+    End Property
+
+    Protected Overloads Overrides ReadOnly Property DefaultSize() As Size
+        Get
+            Return New Size(200, 100)
+        End Get
+    End Property
+
+    Public Overloads Overrides Property MinimumSize() As System.Drawing.Size
+        Get
+            Return m_minSize
+        End Get
+        Set(ByVal value As System.Drawing.Size)
+            If (value <> (m_minSize)) Then
+                m_minSize = value
+                Refresh()
+            End If
+        End Set
+    End Property
+
+#End Region
+
+#Region " Event "
+
+    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
+        MyBase.OnPaint(e)
+
+        DrawBackground(e.Graphics, Me)
+        DrawBorder(e.Graphics, Me)
+
+    End Sub
+
+    Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
+        MyBase.OnResize(e)
+        Invalidate()
+    End Sub
+
+#End Region
+
+#Region " Method "
+
+    Public Overridable Sub DrawBorder(ByVal g As Graphics, ByVal control As TransparentControl)
+        Using p As New Pen(GetDarkColor(Me.TransparentColor, 40), 1)
+            Dim rect As New Rectangle(ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1)
+            rect.Inflate(-1, -1)
+            g.DrawRectangle(p, rect)
+            p.Dispose()
+        End Using
+
+    End Sub
+
+    Public Overridable Sub DrawBackground(ByVal g As Graphics, ByVal control As TransparentControl)
+
+        If Transparent Then
+
+            Using sb As New SolidBrush(control.BackColor)
+                g.FillRectangle(sb, control.ClientRectangle)
+                sb.Dispose()
+
+                Using sbt As New SolidBrush(Color.FromArgb(control.Opacity * 255, control.TransparentColor))
+                    g.FillRectangle(sbt, control.ClientRectangle)
+                    sbt.Dispose()
+                End Using
+            End Using
+
+        Else
+
+            Using sb As New SolidBrush(control.TransparentColor)
+                g.FillRectangle(sb, control.ClientRectangle)
+                sb.Dispose()
+            End Using
+        End If
+
+    End Sub
+
+    Private Function GetLightColor(ByVal colorIn As Color, ByVal percent As Single) As Color
+        If percent < 0 OrElse percent > 100 Then
+            Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
+        End If
+        Dim a As Int32 = colorIn.A * Me.Opacity
+        Dim r As Int32 = colorIn.R + CInt(((255 - colorIn.R) / 100) * percent)
+        Dim g As Int32 = colorIn.G + CInt(((255 - colorIn.G) / 100) * percent)
+        Dim b As Int32 = colorIn.B + CInt(((255 - colorIn.B) / 100) * percent)
+        Return Color.FromArgb(a, r, g, b)
+    End Function
+
+    Private Function GetDarkColor(ByVal colorIn As Color, ByVal percent As Single) As Color
+        If percent < 0 OrElse percent > 100 Then
+            Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
+        End If
+        Dim a As Int32 = colorIn.A * Me.Opacity
+        Dim r As Int32 = colorIn.R - CInt((colorIn.R / 100) * percent)
+        Dim g As Int32 = colorIn.G - CInt((colorIn.G / 100) * percent)
+        Dim b As Int32 = colorIn.B - CInt((colorIn.B / 100) * percent)
+        Return Color.FromArgb(a, r, g, b)
+    End Function
+
+#End Region
+
+End Class
+
+<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
+Public Class TransparentControlDesigner
+
+    Inherits System.Windows.Forms.Design.ParentControlDesigner
+
+#Region " Field "
+
+    Private lists As DesignerActionListCollection
+
+#End Region
+
+#Region " Property "
+
+    Public Overrides ReadOnly Property ActionLists() As System.ComponentModel.Design.DesignerActionListCollection
+        Get
+            If lists Is Nothing Then
+                lists = New DesignerActionListCollection()
+                lists.Add(New TransparentControlActionList(Me.Component))
+
+            End If
+
+            Return lists
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property DefaultControlLocation() As System.Drawing.Point
+        Get
+            Return New Point(20, 20)
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property EnableDragRect() As Boolean
+        Get
+            Return True
+        End Get
+    End Property
+
+    Protected Overrides ReadOnly Property AllowGenericDragBox() As Boolean
+        Get
+            Return True
+        End Get
+    End Property
+
+#End Region
+
+End Class
+
+Public Class TransparentControlActionList
+
+    Inherits DesignerActionList
+
+#Region " Field "
+    Private designerActionUISvc As System.ComponentModel.Design.DesignerActionUIService = Nothing
+    Private tc As TransparentControl
+#End Region
+
+#Region " Constructor "
+    Public Sub New(ByVal component As IComponent)
+        MyBase.New(component)
+        tc = component
+        designerActionUISvc = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
+    End Sub
+#End Region
+
+#Region " Property "
+
+    <System.ComponentModel.DefaultValue(1.0R)> _
+    <System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
+    Public Overridable Property Opacity() As Double
+        Get
+            Return tc.Opacity
+        End Get
+        Set(ByVal value As Double)
+            GetPropertyByName("Opacity").SetValue(tc, value)
+        End Set
+    End Property
+
+    <System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
+    Public Overridable Property Transparent() As Boolean
+        Get
+            Return tc.Transparent
+        End Get
+        Set(ByVal value As Boolean)
+            GetPropertyByName("Transparent").SetValue(tc, value)
+        End Set
+    End Property
+
+    <System.ComponentModel.DefaultValue(GetType(Color), "OliveDrab")> _
+    Public Overridable Property TransparentColor() As Color
+        Get
+            Return tc.TransparentColor
+        End Get
+        Set(ByVal value As Color)
+            GetPropertyByName("TransparentColor").SetValue(tc, value)
+        End Set
+    End Property
+
+#End Region
+
+#Region " Function "
+    Private Function GetPropertyByName(ByVal propName As String) As PropertyDescriptor
+
+        Dim prop As PropertyDescriptor = TypeDescriptor.GetProperties(tc)(propName)
+        If prop Is Nothing Then
+            Throw New ArgumentException("Matching property not valid!", propName)
+        Else
+            Return prop
+        End If
+    End Function
+
+    Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
+
+        Dim items As New DesignerActionItemCollection()
+
+        items.Add(New DesignerActionPropertyItem("Opacity", "Opacity", "Set the opacity percentage of the control"))
+        items.Add(New DesignerActionPropertyItem("TransparentColor", "TransparentColor", "Set the fill color of the control"))
+        items.Add(New DesignerActionPropertyItem("Transparent", "Transparent ", "Enable trnasparency of the control"))
+
+        Return items
+
+    End Function
+#End Region
+
+End Class

Aviso/Benutzerdefinierte Elemente/WebbrowserEx.vb

@@ -0,0 +1,253 @@
+'2007 KLEINMA
+'www.zerosandtheone.com
+
+Option Strict On
+Imports System.Runtime.InteropServices
+Imports System.Security.Permissions
+
+Namespace Kleinma.Controls
+
+    Class WebBrowserEx
+        Inherits WebBrowser
+
+        Private cookie As AxHost.ConnectionPointCookie
+        Private helper As WebBrowser2EventHelper
+
+        'NEW EVENTS THAT WILL NOW BE EXPOSED
+        Public Event NewWindow2 As WebBrowserNewWindow2EventHandler
+        Public Event NavigateError As WebBrowserNavigateErrorEventHandler
+
+        'DELEGATES TO HANDLE PROCESSING OF THE EVENTS
+        Public Delegate Sub WebBrowserNewWindow2EventHandler(ByVal sender As Object, ByVal e As WebBrowserNewWindow2EventArgs)
+        Public Delegate Sub WebBrowserNavigateErrorEventHandler(ByVal sender As Object, ByVal e As WebBrowserNavigateErrorEventArgs)
+
+#Region " PROTECTED METHODS FOR EXTENDED EVENTS "
+        Protected Overridable Sub OnNewWindow2(ByVal e As WebBrowserNewWindow2EventArgs)
+            RaiseEvent NewWindow2(Me, e)
+        End Sub
+
+        Protected Overridable Sub OnNavigateError(ByVal e As WebBrowserNavigateErrorEventArgs)
+            RaiseEvent NavigateError(Me, e)
+        End Sub
+#End Region
+
+#Region "WB SINK ROUTINES"
+
+        <PermissionSetAttribute(SecurityAction.LinkDemand, Name:="FullTrust")> _
+        Protected Overrides Sub CreateSink()
+            MyBase.CreateSink()
+            helper = New WebBrowser2EventHelper(Me)
+            cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, helper, GetType(DWebBrowserEvents2))
+        End Sub
+
+        <PermissionSetAttribute(SecurityAction.LinkDemand, Name:="FullTrust")> _
+        Protected Overrides Sub DetachSink()
+            If cookie IsNot Nothing Then
+                cookie.Disconnect()
+                cookie = Nothing
+            End If
+            MyBase.DetachSink()
+        End Sub
+
+#End Region
+
+#Region "PROPERTIES EXPOSED THROUGH THE COM OBJECT"
+
+        <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
+    <System.Runtime.InteropServices.DispIdAttribute(200)> _
+        Public ReadOnly Property Application() As Object
+            Get
+                If IsNothing(Me.ActiveXInstance) Then
+                    Throw New AxHost.InvalidActiveXStateException("Application", AxHost.ActiveXInvokeKind.PropertyGet)
+                End If
+
+                Return CallByName(Me.ActiveXInstance, "Application", CallType.Get, Nothing)
+                'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME()
+                'Return Me.ActiveXInstance.Application
+            End Get
+        End Property
+
+        <System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
+        <System.Runtime.InteropServices.DispIdAttribute(552)> _
+        Public Property RegisterAsBrowser() As Boolean
+            Get
+                If IsNothing(Me.ActiveXInstance) Then
+                    Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertyGet)
+                End If
+
+                Dim RetVal As Boolean = False
+                If Not Boolean.TryParse(CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Get, Nothing).ToString, RetVal) Then RetVal = False
+                Return RetVal
+                'THIS IS COMMENTED. UNCOMMENT AND REMOVE 3 LINES BEFORE IF YOU CAN NOT USE CALLBYNAME()
+                'Return Me.ActiveXInstance.RegisterAsBrowser
+
+            End Get
+            Set(ByVal value As Boolean)
+                If IsNothing(Me.ActiveXInstance) Then
+                    Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertySet)
+                End If
+
+                CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Let, True)
+                'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME()
+                'Me.ActiveXInstance.RegisterAsBrowser = value
+            End Set
+        End Property
+
+#End Region
+
+        'HELPER CLASS TO FIRE OFF THE EVENTS
+        Private Class WebBrowser2EventHelper
+            Inherits StandardOleMarshalObject
+            Implements DWebBrowserEvents2
+
+            Private parent As WebBrowserEx
+
+            Public Sub New(ByVal parent As WebBrowserEx)
+                Me.parent = parent
+            End Sub
+
+
+            Public Sub NewWindow2(ByRef ppDisp As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NewWindow2
+                Dim e As New WebBrowserNewWindow2EventArgs(ppDisp)
+                Me.parent.OnNewWindow2(e)
+                ppDisp = e.ppDisp
+                cancel = e.Cancel
+            End Sub
+
+            Public Sub NavigateError(ByVal pDisp As Object, ByRef URL As Object, ByRef frame As Object, ByRef statusCode As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NavigateError
+                ' Raise the NavigateError event.
+                Me.parent.OnNavigateError( _
+                    New WebBrowserNavigateErrorEventArgs( _
+                    CStr(URL), CStr(frame), CInt(statusCode), cancel))
+            End Sub
+        End Class
+
+
+
+        ' Define constants from winuser.h
+        Private Const WM_PARENTNOTIFY As Integer = &H210
+        Private Const WM_DESTROY As Integer = 2
+
+        'Define New event to fire
+        Public Event WBWantsToClose()
+
+        Protected Overrides Sub WndProc(ByRef m As Message)
+            Select Case m.Msg
+                Case WM_PARENTNOTIFY
+                    If (Not DesignMode) Then
+                        If (CInt(m.WParam) = WM_DESTROY) Then
+                            ' Tell whoever cares we are closing
+                            RaiseEvent WBWantsToClose()
+                        End If
+                    End If
+                    DefWndProc(m)
+                Case Else
+                    MyBase.WndProc(m)
+            End Select
+        End Sub
+    End Class
+
+
+    Public Class WebBrowserNewWindow2EventArgs
+        Inherits System.ComponentModel.CancelEventArgs
+
+        Private ppDispValue As Object
+
+        Public Sub New(ByVal ppDisp As Object)
+            Me.ppDispValue = ppDisp
+        End Sub
+
+        Public Property ppDisp() As Object
+            Get
+                Return ppDispValue
+            End Get
+            Set(ByVal value As Object)
+                ppDispValue = value
+            End Set
+        End Property
+
+    End Class
+    Public Class WebBrowserNavigateErrorEventArgs
+        Inherits EventArgs
+
+        Private urlValue As String
+        Private frameValue As String
+        Private statusCodeValue As Int32
+        Private cancelValue As Boolean
+
+        Public Sub New( _
+            ByVal url As String, ByVal frame As String, _
+            ByVal statusCode As Int32, ByVal cancel As Boolean)
+
+            Me.urlValue = url
+            Me.frameValue = frame
+            Me.statusCodeValue = statusCode
+            Me.cancelValue = cancel
+
+        End Sub
+
+        Public Property Url() As String
+            Get
+                Return urlValue
+            End Get
+            Set(ByVal value As String)
+                urlValue = value
+            End Set
+        End Property
+
+        Public Property Frame() As String
+            Get
+                Return frameValue
+            End Get
+            Set(ByVal value As String)
+                frameValue = value
+            End Set
+        End Property
+
+        Public Property StatusCode() As Int32
+            Get
+                Return statusCodeValue
+            End Get
+            Set(ByVal value As Int32)
+                statusCodeValue = value
+            End Set
+        End Property
+
+        Public Property Cancel() As Boolean
+            Get
+                Return cancelValue
+            End Get
+            Set(ByVal value As Boolean)
+                cancelValue = value
+            End Set
+        End Property
+
+    End Class
+
+    <ComImport(), Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), _
+    InterfaceType(ComInterfaceType.InterfaceIsIDispatch), _
+    TypeLibType(TypeLibTypeFlags.FHidden)> _
+    Public Interface DWebBrowserEvents2
+
+        <DISPID(DISPID.NEWWINDOW2)> Sub NewWindow2( _
+            <InAttribute(), OutAttribute(), MarshalAs(UnmanagedType.IDispatch)> ByRef ppDisp As Object, _
+            <InAttribute(), OutAttribute()> ByRef cancel As Boolean)
+
+        <DISPID(DISPID.NAVIGATERROR)> Sub NavigateError( _
+            <InAttribute(), MarshalAs(UnmanagedType.IDispatch)> _
+             ByVal pDisp As Object, _
+            <InAttribute()> ByRef URL As Object, _
+            <InAttribute()> ByRef frame As Object, _
+            <InAttribute()> ByRef statusCode As Object, _
+            <InAttribute(), OutAttribute()> ByRef cancel As Boolean)
+    End Interface
+
+    Public Enum DISPID
+        NEWWINDOW2 = 251
+        NAVIGATERROR = 271
+    End Enum
+
+
+
+End Namespace
+

Aviso/Benutzerdefinierte Elemente/cMyListItem.vb

@@ -0,0 +1,31 @@
+
+Public Class MyListItem
+    Private mText As String
+    Private mValue As String
+
+    Public Sub New(ByVal pText As String, ByVal pValue As String)
+        mText = pText
+        mValue = pValue
+    End Sub
+
+    Public ReadOnly Property Text() As String
+        Get
+            Return mText
+        End Get
+    End Property
+
+    Public ReadOnly Property Value() As String
+        Get
+            Return mValue
+        End Get
+    End Property
+
+    Public Overrides Function ToString() As String
+        Return mText
+    End Function
+
+
+
+
+
+End Class

Aviso/Benutzerdefinierte Elemente/frmPopUp.Designer.vb

@@ -0,0 +1,52 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmPopUp
+    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(frmPopUp))
+        Me.WebBrowserEx1 = New AVISO.Kleinma.Controls.WebBrowserEx()
+        Me.SuspendLayout()
+        '
+        'WebBrowserEx1
+        '
+        Me.WebBrowserEx1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.WebBrowserEx1.Location = New System.Drawing.Point(0, 0)
+        Me.WebBrowserEx1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowserEx1.Name = "WebBrowserEx1"
+        Me.WebBrowserEx1.Size = New System.Drawing.Size(598, 316)
+        Me.WebBrowserEx1.TabIndex = 0
+        '
+        'frmPopUp
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(598, 316)
+        Me.Controls.Add(Me.WebBrowserEx1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmPopUp"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents WebBrowserEx1 As AVISO.Kleinma.Controls.WebBrowserEx
+End Class

Aviso/Benutzerdefinierte Elemente/frmPopUp.vb

@@ -0,0 +1,44 @@
+Public Class frmPopUp
+
+    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowserEx1.DocumentCompleted
+        Try
+            If Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width = 0 Then
+                Me.Width = 500
+            Else
+                Me.Width = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width + 40
+            End If
+
+            Me.Height = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Height + 40
+            If Me.Height + Me.Top > Screen.PrimaryScreen.Bounds.Height Then
+                Me.Height = Screen.PrimaryScreen.Bounds.Height - Me.Top
+            End If
+            If Me.Width + Me.Left > Screen.PrimaryScreen.Bounds.Width Then
+                Me.Width = Screen.PrimaryScreen.Bounds.Width ' - Me.Left
+            End If
+
+            If Me.Width < 100 Then
+                Me.Width = 500
+            End If
+            Me.StartPosition = FormStartPosition.CenterScreen
+        Catch ex As Exception
+
+        End Try
+        AddHandler WebBrowserEx1.WBWantsToClose, Sub() Me.Close()
+        ' AddHandler WebBrowserEx1.HandleCreated, Sub() MsgBox("3")
+        ' AddHandler WebBrowserEx1.ControlRemoved, Sub() MsgBox("4")
+        'AddHandler WebBrowserEx1., Sub() MsgBox("5")
+        'AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
+        ' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
+        ' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
+        'End Sub
+    End Sub
+
+    Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowserEx1.NewWindow2
+        Dim F As New frmPopUp
+        F.Show() 'important to call show method before the following lines to ensure
+        F.Name = ""
+        e.ppDisp = F.WebBrowserEx1.Application
+        F.WebBrowserEx1.RegisterAsBrowser = True
+    End Sub
+
+End Class

Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.Designer.vb

@@ -0,0 +1,64 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrcntlCheckBox
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl ü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.pnl = New System.Windows.Forms.Panel()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(20, 20)
+        Me.pnl.TabIndex = 63
+        '
+        'lbl
+        '
+        Me.lbl.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lbl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lbl.Location = New System.Drawing.Point(0, 0)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(18, 18)
+        Me.lbl.TabIndex = 0
+        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'usrcntlCheckBox
+        '
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrcntlCheckBox"
+        Me.Size = New System.Drawing.Size(20, 20)
+        Me.pnl.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents lbl As System.Windows.Forms.Label
+
+End Class

Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.vb

@@ -0,0 +1,51 @@
+Public Class usrcntlCheckBox
+
+    Property value = ""
+    ' Public Property _beteiligter As String = ""
+    Public Property _abrArt As String = ""
+    Public Property _beteiligter As String = ""
+
+    Public Property _readOnly As Boolean = False
+
+    Event ValueChanged(value)
+    Event CLICKED(sender As usrcntlCheckBox)
+
+    Private Sub MyTextCheckBox_Click(sender As Object, e As EventArgs) Handles Me.Click, lbl.Click
+        If _readOnly Then RaiseEvent CLICKED(Me) : Exit Sub
+
+        Dim small As New Font(lbl.Font.FontFamily, 5)
+        Dim big As New Font(lbl.Font.FontFamily, 8.25)
+        Me.Font = big
+        Select Case lbl.Text
+            Case "" : lbl.Text = "X"
+            Case "X" : lbl.Text = "" ' lbl.Text = "BAR" : lbl.Font = small
+                '     Case "BAR" : lbl.Text = ""
+        End Select
+        RaiseEvent ValueChanged(value)
+    End Sub
+
+
+    Private Sub lbl_TextChanged(sender As Object, e As EventArgs) Handles lbl.TextChanged
+        If _readOnly Then Exit Sub
+
+        Dim small As New Font(lbl.Font.FontFamily, 5)
+        Dim big As New Font(lbl.Font.FontFamily, 8.25)
+
+        value = lbl.Text
+        lbl.Font = IIf(lbl.Text = "BAR", small, big)
+        lbl.BackColor = If(lbl.Text <> "", Color.SandyBrown, Color.White)
+    End Sub
+
+    Public Sub special(setValue As Boolean)
+        If setValue Then
+            lbl.BackColor = Color.SandyBrown
+            lbl.Font = New Font(Me.Font.FontFamily, 5, FontStyle.Bold)
+            'lbl.ForeColor = Color.White
+            lbl.Text = "JA"
+        Else
+            lbl.BackColor = Color.White
+            '  lbl.ForeColor = Color.Black
+            lbl.Text = ""
+        End If
+    End Sub
+End Class