vb界面“平滑推出”效果

VB如何做到像QQ那样，有“QQ好友”“通讯录”“最近联系人”栏目，分格显示，然后一点击某一格（如点“QQ好友”）就“推”出来，并收起其它界面到另一端，而且本栏里面有自己的界面那样的效果？
不是选项卡的效果，是类似于网页弹出表格和收缩表格的效果。

Frame和Command控件数组即可实现
先在Frame里画一个Command
left、top为0，宽度和Frame相等，高度适量
再选中Frame复制，在窗体里粘贴，提示创建控件数组选择是
重复粘贴到你需要的数量

Option Explicit

Private Sub Form_Load()
Dim i As Long

For i = 0 To Frame1.UBound ''''''''''''''''先全部收缩
Frame1(i).Height = Command1(i).Height
Frame1(i).Left = Frame1(0).Left
Frame1(i).Top = Command1(i).Height * i
Next

Command1_Click 0 '''''''''''''''''''''''''初始化展开第一条
End Sub

Private Sub Command1_Click(Index As Integer)
Dim Ci As Long, i As Long

For i = 0 To Index '''''''''''''''''''向上收缩点击按钮上面部分
Frame1(i).Height = Command1(i).Height
Frame1(i).Top = Command1(i).Height * i
Next