编写vb小程序重启explorer

用vb编写小程序实现重启资源管理器explorer，求大神
用的是vb 6.0

---

Option Explicit
Private Declare Function FindWindow Lib "毕埋user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32"手卖蚂 (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Sub Form_Click()
Dim hWndTray As Long
Dim dwProcessID As Long
Dim hProcess As Long
hWndTray = FindWindow("Shell_TrayWnd"配圆, vbNullString)
Call GetWindowThreadProcessId(hWndTray, dwProcessID)
If dwProcessID Then
hProcess = OpenProcess(&H10000000, 0, dwProcessID)
If hProcess Then
Call TerminateProcess(hProcess, 0)
End If
End If
End Sub

---

不能吧

只会有一个进程的

---