ارتفاع نوار ابزار در وی بی 6

[amj2009]

سلام بچه ها
یه سوال اضطراری
میخواستم ببینم چطور میشه ارتفاع نواز ابزار ویندوز رو پیدا کرد؟
هر چی توی فروم گشتم چیزی پیدا نکردم.
لطفا سریعتر جواب بدین
تشکر

[M.T.P]

سلام
منظورتون کدوم نوار ابزاره؟
به نظر میاد منظورتون Taskbar باشه اینطور نیست؟


Option Explicit

Private 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

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

Function TaskBarHeight() As Long
Dim ABD As APPBARDATA
Dim IntRet As Long
IntRet = SHAppBarMessage(ABM_GETTASKBARPOS, ABD)
TaskBarHeight = ABD.rc.Bottom - ABD.rc.Top
End Function

Function TaskBarWidth() As Long
Dim ABD As APPBARDATA
Dim IntRet As Long
IntRet = SHAppBarMessage(ABM_GETTASKBARPOS, ABD)
TaskBarWidth = ABD.rc.Right - ABD.rc.Left
End Function

Private Sub Form_Load()
MsgBox TaskBarWidth
MsgBox TaskBarHeight
End Sub