Private Const SHERB_NOCONFIRMATION = 1     '执行清空操作时不会给出提示信息
Private Const SHERB_NOSOUND = 4            '执行清空操作时不播放提示音乐

Private Declare SHEmptyRecycleBin Lib "Shell32" Alias "SHEmptyRecycleBinA" (ByVal HWND As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
   
Private Sub Command1_Click()
    SHEmptyRecycleBin Me.HWND, vbNullString, SHERB_NOCONFIRMATION Or SHERB_NOSOUND '清空回收站（没有提示信息和音乐）
End Sub