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
  Private Const SW_NORMAL = 1 '（这些API常量可以用VB常量代替，比如vbNormalFocus）
Private Const SW_MAXIMIZE = 3
Private Const SW_MINIMIZE = 6
Private Const SW_SHOW = 5



lR = ShellExecute(0, "open", "D:\Program Files\Thunder\Thunder.exe ", USETEM, dfile, SW_SHOW)

‘D:\Program Files\Thunder\Thunder.exe 是迅雷
'USETEM  是要下载ip地址
'dfile    是下载目录

现在问题是能打开迅雷，但不能加载
           请大侠指教