A single Select Case without If...EndIf
Code:
Select Case True
    Case .Top > 0
        '-- do nothing
    Case .Height < UserControl.Height
        MsgBox "A"
    Case .Height > UserControl.Height
        MsgBox "B"
End Select