Imports MyControls
 
Public Class FormHaupt
 
     Private Sub MeinNeuesForm()
          Dim f as New MyControls.frmMitarbeiter
          ...
     End Sub
 
     Public Sub myTBox1KeyPress(ByVal tb As myTBox1)
          ...
     End Sub
End Class
 
Public Class myTBox1
    Inherits TextBox
    Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
        MyBase.OnKeyPress(e)
        DirectCast(FormHaupt, FormHaupt).myTBox1KeyPress(Me)
    End Sub
 
    Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
        MyBase.OnLeave(e)
        DirectCast(FormHaupt, FormHaupt).myTBox1Leave(Me)
    End Sub
 
    ....
End Class