Dim txt as New TextBox
txt.Name = "servus"
AddHandler txt.KeyPress, AddressOf txt_KeyPRess 'weis den namen der funktion 
' nicht mehr
me.Controls.Add(txt)
 
Public Sub txt_KeyPress(sender as OBject, e as Eventargs)
    MessageBox(ctype(sender,TextBox).Name)
end Sub