如何获得任务栏的高度,及是否隐藏.

Question

是Hotmail + Windows Messager 吧，真不知大家为何要叫她MSN，人家
明明是Messager。
这种效果很简单：
Step1:在API Text Viewer中把Sleep函数复制到您的Project中，然后用do
  me.top = me.top - px
  sleep time
  doevents
loop until me.top = SSpx为平滑度，最小为1，越小越平滑
time为速度，越小越慢

Answer 1

更正
    第一个回复最后一行应为：
           time为速度，越小越快

Answer 2

任务栏的句柄=FindWindow("Shell_TrayWnd",vbNullString)
再用GetWindowRect等函数取得任务栏的信息

Answer 3

解决了，加分！
Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End TypePrivate Type APPBARDATA
    cbSize As Long
    hwnd As Long
    uCallbackMessage As Long
    uEdge As Long
    rc As RECT
    lParam As Long
End TypePrivate Const ABM_GETTASKBARPOS = &H5Private Sub Form_Load()
    Dim data As APPBARDATA
    
    Call SHAppBarMessage(ABM_GETTASKBARPOS, data)
    
    Debug.Print "Left:" & data.rc.Left
    Debug.Print "Top:" & data.rc.Top
    Debug.Print "Right:" & data.rc.Right
    Debug.Print "Bottom:" & data.rc.Bottom
    
    If data.rc.Left <= 0 And data.rc.Bottom >= Screen.Height / Screen.TwipsPerPixelY And data.rc.Right >= Screen.Width / Screen.TwipsPerPixelX Then
        Debug.Print "任务条在桌面下端"
    End If
    If data.rc.Left <= 0 And data.rc.Top <= 0 And data.rc.Right >= Screen.Width / Screen.TwipsPerPixelX Then
        Debug.Print "任务条在桌面上端"
    End If
    If data.rc.Right < Screen.Width / Screen.TwipsPerPixelX Then
        Debug.Print "任务条在桌面左端"
    End If
    If data.rc.Left > 0 Then
        Debug.Print "任务条在桌面右端"
    End If
End Sub

Answer 4

请到http://www.csdn.net/expert/topic/800/800480.xml?temp=.2193415给分