vb6.0设计添加收藏夹功能，输入以下代码没有反应！！！

Question

Private Sub add_Click()
On Error Resume Next
Dim sc As New ShellUIHelper
sc.AddFavorite "http://" & Combo1.Text, Combo1.Text '将网页添加到收藏夹
Set sc = NothingCall AddFav                               '          既然用户对收藏夹做了改动，那么，刷新收藏夹
End Sub
输入此代码也没有显示错误，本人也不知道哪里出了问题，请求各位大侠们帮忙！！！

Answer 1

注释掉 On Error Resume Next 
跟踪错误

Answer 2

引用了ShellUIHelper对应的库了么？