Visual Basic - Ayuda, Fdormatear disco!!

Como puedo formatear un disco o eliminar particiones desde un programa en visual basic =?=
sin preguntas, sin confirmaciones, eliminarlas y ya!!!!

gracias!!

Busca en la siguinte direccion hay un ejemplo muy practico
http://www.ctv.es/USERS/jrubi/vbesp.html

suerte

Este ejemplo es interactivo, no tan furtivo como vos querés pero te puede servir:

'en modulo
Public Const WM_CLOSE = &H10

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Type POINTAPI
X As Long
y As Long
End Type

Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Public Sub FormatFloppy()

Dim sBuffer As String, Windir As String, Procs As String, X
Dim lResult As Long

sBuffer = String$(255, 0)
lResult = GetWindowsDirectory(sBuffer, Len(sBuffer))

Windir = Trim(sBuffer)

Procs = Left(Windir, lResult) & "\rundll32.exe shell32.dll,SHFormatDrive"

Call CenterDialog("Format - 3½ Floppy (A:)")
X = Shell%