vb,怎样将文件移入回收站?

在窗体内加入控件text1,command1,然后复制下面代码，运行后在text1内输入文件名，点击command1按钮，OK！

Option Explicit
Private Const FO_DELETE = &H3&
Private Const FOF_ALLOWUNDO = &H40&
Private Const FOF_NOCONFIRMATION = &H10&
Private Const FOF_NOCONFIRMMKDIR = &H200&
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "Shell32.dll" _
Alias "SHFileOperationA" _
(lpFileOp As Any) As Long

Private Sub Command1_Click()
Dim fileop As SHFILEOPSTRUCT
Dim result As Long
With fileop
.wFunc = FO_DELETE
.pFrom = Text1.Text
.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION