correct me if im wrong but isnt it just

Select Case .top
Case Is <= 0 And (.Height < UserControl.Height)
MsgBox("")
case else <= 0 And .Height > UserControl.Height
MsgBox("")

End Select