While I don't think it's a candidate for converting to a case statement... it would look something like this:

Code:
Select Case TRue
   Case .Top <= 0 And (.Height < UserControlHeight)
....
-tg