Visual Basic - ¿COMO VACIAR LA PAPELERA CON API?

Necesito vaciar la papelera de reciclaje en Visual Basic 6, pero no sé
si tienen algún ejemplo con Api se los agradeceré.

a nivel de Shell o Kill tengo que detectar las unidades de disco Fijo y luego en cada una de las unidades ejecutar dichos comandos, pero a veces no se actualiza la papelera.

para vaciar puedes usar
Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long

Gracias, "eiv" me imaginaba que existía una función pero no sabia cual.
voy a probarla a ver cómo me funciona si es que se puede omitir el parámetro dwFlags ya que no sé cuales son los valores.

Muchas Gracias por tu ayuda.