Read the size and location of Windows work columns

This issue requires a call to the SHAppBarMessage API function, with details as follows:

1. Declaration of the API:

Const ABM_GETTASKBARPOS = &H5
Private Type RECT
　Left As Long
　Top As Long
　Right As Long
　Bottom As Long
End Type
Private Type APPBARDATA
　cbSize As Long
　hWnd As Long
　uCallbackMessage As Long
　uEdge As Long
　rc As RECT
　lParam As Long
End Type

Note: If the above declaration is placed under "General module", add the public reserved word before the Const,

and remove the private reserved word.

2. Program Example:

Dim data as Appbardata

Data.cbsize = Len (data)

Call SHAppBarMessage (Abm_gettaskbarpos, data)

' Data.rc.Left is equal to the left boundary of the work column

' Data.rc.Top is equal to the upper boundary of the work column

' Data.rc.Right is equal to the right boundary of the work column

' Data.rc.Bottom is equal to the bottom boundary of the work column.

Please note that the position and size of the work column shown above are in pixel (pixels).