Public Class MyControl : Inherits OControl
     Private control As New Control
 
     Public Sub New(ByVal Control As Control)
          Me.control = Control
 
          AddHandler Control.Click, AddressOf Control_Click                     _
                      ' 1950 ms
          'AddHandler Control.DoubleClick, AddressOf Control_DoubleClick        
          '            ' 0.9 ms
          'AddHandler Control.KeyPress, AddressOf Control_KeyPress              
          '            ' 0.8 ms
          'AddHandler Control.PreviewKeyDown, AddressOf Control_PreviewKeyDown  
          '            ' 0.9 ms
          'AddHandler Control.KeyDown, AddressOf Control_KeyDown                
          '            ' 1.08 ms
     end sub
 
     '.... weiterer Code
 
     Private Sub Control_Click(ByVal sender As Object, ByVal e As _
       System.EventArgs)
 
          ' hier muss nicht mal Code stehen damit es bremst
          ' wird die Sub komplett entfernt ist der Code schnell
 
     End Sub