Dim tb As New TextBox
AddHandler tb.TextChanged, AddressOf TextBox_TextChanged
...
Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
	Dim tex As TextBox = CType(sender, TextBox)
	With tex
	...
	End With
End Sub

Salzburger