This appears to work as well:

VB Code:
  1. If Panel1.DisplayRectangle.Height = Panel1.Size.Height Then

  2.             MsgBox("No Scroll")

  3.         Else

  4.             MsgBox("Scroll")

  5.         End If