Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.UpdateListBox()
    End Sub
 
    Private Sub UpdateListBox()
        Dim dir As New IO.DirectoryInfo( _
          My.Computer.FileSystem.SpecialDirectories.Temp)
        Dim files() As IO.FileInfo = dir.GetFiles("*.*", _
        IO.SearchOption.TopDirectoryOnly)
        ListBox1.DisplayMember = "Name"
        ListBox1.DataSource = files
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedItem IsNot Nothing Then
            Dim file As IO.FileInfo = CType(ListBox1.SelectedItem, IO.FileInfo)
            If file.Exists Then
                file.Delete()
                Me.UpdateListBox()
            End If
        End If
    End Sub
 
End Class