I wrote a couple of really simple extension methods, Cast, and TryCast, that allow me to write code such as sender.Cast(Of Control).Text = "hello world" <Extension()> _ Function Cast( Of T)( ByVal obj As Object ) As T Return DirectCast (obj, T) End Function <Extension()> _ Function...