Run-time Error 398:
 
Client Site not available

    Dim lObject As Object
    For Each lObject In UserControl.Parent.Controls
        If lObject.hWnd = UserControl.hWnd Then
            Debug.Print UserControl.Height - (lObject.Top + 20)
            ' Das Usercontrol ist 20 Pixel hoch!
            ' Die ScaleModes stehen definitiv auf vbPixels
        End If
    Next