Public Sub bindControls()
 
        For x As Integer = 0 To _boundControls.Count - 1
            Dim ctrl As Control = _boundControls(x).mControl
            AddHandler ctrl.KeyDown, AddressOf mControl_KeyDown
            AddHandler ctrl.MouseDown, AddressOf mControl_mousedown
            AddHandler ctrl.Paint, AddressOf mControl_Paint
            'AddHandler ctrl.Resize, AddressOf mControl_Resize
            'AddHandler ctrl.Move, AddressOf mControl_Move
            Dim parent As Control = _boundControls(x).mParent
        Next
    End Sub

    Private Sub mControl_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs)
'Drücke die Taste nur 1x
        kt = kt + 1
        Main.Text = kt'<---am schluss bleibt es bei 8 stehen
 
        If activeControlParent IsNot Nothing Then _
          activeControlParent.Invalidate()
        Dim newCtrl As Control = activeControl
        If e.KeyCode = 38 Then
            newCtrl.Top = newCtrl.Top - 1
        ElseIf e.KeyCode = 39 Then
            newCtrl.Left = newCtrl.Left + 1
        ElseIf e.KeyCode = 40 Then
            newCtrl.Top = newCtrl.Top + 1
        ElseIf e.KeyCode = 37 Then
            newCtrl.Left = newCtrl.Left - 1
        End If
        activeControl.Invalidate()
        Application.DoEvents()
        drawBoundingRectangle()
        paintresize()
    End Sub