VB浏览器的收藏夹要怎么做,希望详细点写出来,谢谢

添加listbox,command,text,webbrowser
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim m As Integer, s As Integer, ms As Integer, flag As Boolean
Dim FPath As String
Private Sub Command1_Click()

Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
FPath = WSH.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites")
Set WSH = Nothing
Dim tmp As String
tmp = Dir(FPath & "\*.url")
If Len(tmp) Then List1.Clear
Do While Len(tmp)
List1.AddItem tmp
tmp = Dir
Loop
End Sub

Private Sub Form_Load()

End Sub

Private Sub List1_Click()
Dim URL As String
Open FPa