Quote Originally Posted by Pradeep1210 View Post
The .Top is never changing. You should better use SELECT.. CASE on the .Height property.
vb Code:
  1. If .Top <= 0 Then
  2.     Select Case .Height
  3.         Case Is < UserControl.Height
  4.             MsgBox("")
  5.         Case Is > UserControl.Height
  6.             MsgBox("")
  7.     End Select
  8. End If
This is very similar to my code in post#7 that I brought UserControl.Height up to Select Case line, by that way the code needs to access to UserControl's properties at maximum of once, perhaps 1 nano second can be saved!!!