用API函数为框架添加滚动条？为什么不行？

Question

我打算做一个考试系统，选择题（10道）要显示在框架中，肯定需要滚动条，实现滚动效果，以前贴过一个帖子，回复了这样一段代码：Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_BOTH = 3
Private Const SB_CTL = 2
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Sub Form_Click()
    ShowScrollBar Frame1.hwnd, SB_BOTH, True
End Sub
但是我试了一下，虽然可以在框架上显示滚动条，但是并没有办法实现我说要的那种滚动效果（类似文本框空间的那一种），在此向各位大虾请教，不胜感激！

Answer 1

自己画一个就是了,或者像下面:Dim WithEvents myVScrollBar As VScrollBar
Private Sub Command1_Click()
    Set myVScrollBar = Controls.Add("VB.VScrollBar", "myvScrollBar", Frame1)
    myVScrollBar.Move Frame1.Width - 400, 100, 300, Frame1.Height - 100
    myVScrollBar.Max = 100
    myVScrollBar.Min = 1
    myVScrollBar.Visible = True
End Sub