Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, _
  pData As APPBARDATA) As Long

Private Type APPBARDATA
  cbSize            As Long
  hwnd              As Long
  uCallbackMessage  As Long
  uEdge             As Long
  rc                As RECT
  lParam            As Long
End Type
 
Private Type RECT
  Left      As Long
  Top       As Long
  Right     As Long
  Bottom    As Long
End Type
 
Const ABM_NEW = &H0
Const ABM_REMOVE = &H1
Const ABM_SETPOS = &H3
Const ABM_GETTASKBARPOS = &H5
 
Const ABE_LEFT = &H0
Const ABE_TOP = &H1
Const ABE_RIGHT = &H2
Const ABE_BOTTOM = &H3