Taskbar Height/width

[kleinma]

I have this code to determine the height of the task bar

    Dim lRes As Long
    Dim rectVal As RECT
    Dim TaskbarLoc As String
    
    TaskbarLoc = GetTaskBarLoc
    
    lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
    
    GetTaskbarHeight = ((Screen.Height / Screen.TwipsPerPixelX) - rectVal.Bottom) * Screen.TwipsPerPixelX

it works fine... but when the task bar is on the right or left of the screen it returns 0 as the height.. what would I have to change to determine the "width" of the taskbar when it is docked to the left or right of the screen?