请问怎样实现qq的卷帘效果
1.比如点击“群/校友录”就网上推开，显示该面板图标内容？


2.怎样添加各项图标内容（并可以点击响应）？


谢谢

[解决办法]
模QQ藏窗口

Declare Function GetCursorPos Lib "user32 " (lpPoint As POINTAPI) As Long
Declare Function GetWindowRect Lib "user32 " (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function PtInRect Lib "user32 " (lpRect As RECT, ByVal ptx As Long, ByVal pty As Long) As Long
Declare Function ShowWindow Lib "user32 " (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Type POINTAPI
X As Long
Y As Long
End Type

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Sub Form_Load()
Me.Left = 0
End Sub

Sub Timer1_Timer()
Dim MyPoint As POINTAPI
Dim MyRect As RECT
Call GetCursorPos(MyPoint)
Call GetWindowRect(Me.hwnd, MyRect)
If PtInRect(MyRect, MyPoint.X, MyPoint.Y) = 0 Then
Me.Top = 0 - Me.Height + 10
ShowWindow Me.hwnd, 0
Else
ShowWindow Me.hwnd, 5
Me.Top = 0
End If
End Sub

[解决办法]
有例子的 用这个控件CtListBar
[解决办法]
我记得ActiveBar也有类似的功能，而且非常强大