Empty Recyle bin VBNET

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32
    Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
    Private Sub EmptyRecycleBin()
        SHEmptyRecycleBin(0, "", &H1 + &H4)
        SHUpdateRecycleBinIcon()
    End Sub

Usage:

EmptyRecycleBin()