Public Class Form1
Friend Class clsSafeNativeMethods
Friend Const UserInterface_NOCONFIRMATION As Short = &H1S
Friend Const UserInterface_NOPROGRESS As Short = &H2S
Friend Const UserInterface_NOSOUND As Short = &H4S
Friend Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Integer, ByVal pszRootPath As String, ByVal dwFlags As Integer) As Integer
Friend Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Integer
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, _
vbNullString, _
clsSafeNativeMethods.UserInterface_NOCONFIRMATION)
clsSafeNativeMethods.SHUpdateRecycleBinIcon()
Me.Close()
End Sub
End Class