Public Class FormHaupt
Private Sub Load()
  Dim Textbox1 as New myTBox1
  Controls.Add(Textbox1)
  Textbox1.Keypress, AdressOf OnJemandHatDieseTextboxKeyPressed
End Sub
 
private sub OnJemandHatDieseTextboxKeyPressed(ByVal sender As object,ByVal e As _
  KeyPressEventArgs)
...
end sub
End Class

Micke