^***^全面控制任务栏^***^

Option  Explicit  
 
Public  Declare  Function  SystemParametersInfo  Lib  "user32"  Alias  "SystemParametersInfoA"  (ByVal  uAction  As  Long,  ByVal  uParam  As  Long,  ByRef  lpvParam  As  Any,  ByVal  fuWinIni  As  Long)  As  Long  
       Public  Const  SPI_GETWORKAREA  =  48  
 
 
Public  Type  RECT  
       Left  As  Long  
       Top  As  Long  
       Right  As  Long  
       Bottom  As  Long  
End  Type  
 
Public  Function  GetTaskbarHeight()  As  Integer  
       Dim  lRes  As  Long  
       Dim  rectVal  As  RECT  
         
       lRes  =  SystemParametersInfo(SPI_GETWORKAREA,  0,  rectVal,  0)  
       GetTaskbarHeight  =  ((Screen.Height  /  Screen.TwipsPerPixelX)  -  rectVal.Bottom)  *  Screen.TwipsPerPixelX  
End  Function  
以上是获得系统任务栏的高度？但现想请教各位大哥更深一点的问题，那就是全面控制或精确控制任务栏中的某一个子项，即我现在所遇到的问题，就是如何获得任务栏中时钟区域的高度，长度，它在屏幕中的坐标位置，以及如何改变时钟区域的大小，长度，整个系统任务栏是可以改变大小的，我想它的子项也应该可以的吧，欢迎各位进行讨论，或给出具体的解决方法，在这里先谢谢了！