Мало того что не удаляется так он еще и таблице файлов остается, там только один байт меняется.
А проги по уничтожению файлов заполняют место занимаемое файлом всяким мусором.

Почитайте что-нибудь как устроена файловая система.

Ну и, наверное, вопрос нужно решать не на VB. ИМХО.

AndrFУгу. Открыть еще не удаленный файл как бинарный, заменить содержимое мусором, потом удалить - IMHO даже API не нужно...
Т.е. вы гарантируете, что файл с мусором не будет перезаписан в другое место и потом на него поменяется указатель в таблице файлов, а требуемое содержимое останентся на винте?

AndrFЗуб не дам, но какой смысл системе при этом менять место файла? Хотя кто знает - вопрос к тем кто больше в системных делах копается...
А все очень просто. Записывается файл, а тут свет рубанули. Пользователю понравится, что файл совсем потерян? Он еще может смириться с потерей последних изменений.
Таким образом сначала новый файл записывается на новое место, а затем быстро в таблице файлов меняется указатель на новое место (возможно и там есть транзакция). Таким образом реально информация на диске не уничтожается.
Мое мнение, что VB не заточен на такие фишки. Хотя и можно сделать с помощью API. Т.е. что бы это сделать нужно обладать кораздо большими знаниями, чем требуется для программирования на VB.