' end if
'end sub
'
'private sub command2_click()
' dim rc as long
'’ie控制面板中的连接面板
' rc = launchconnectiondialog(me.hwnd)
' debug.print getlasterror
' if rc = 0 then
' msgbox "launchconnectiondialog failed!", vbexclamation
' end if
'end sub
'
'private sub command3_click()
' dim rc as long
' dim strfavpath as string * max_path
'’收藏夹所在的目录
' shgetspecialfolderpath me.hwnd, strfavpath, csidl_favorites, false
整理收藏夹
' rc = doorganizefavdlg(me.hwnd, strfavpath)
' debug.print getlasterror
' if rc = 0 then
' msgbox "doorganizefavdlg failed!", vbexclamation
' end if
'end sub
'
'private sub command4_click()
' dim rc as long
'
' rc = launchsitecertdialog(me.hwnd)
' debug.print getlasterror
' if rc = 0 then
' msgbox "launchsitecertdialog failed!", vbexclamation
' end if
'end sub
'
'
''
'private sub command6_click()
' dim rc as long
' dim strfavpath as string * max_path
'
' shgetspecialfolderpath me.hwnd, strfavpath, csidl_favorites, false
