Visual Basic - Formatear Disco A

Hola, ¿sabeis como se puede formatear el disco de la unidad A desde VB? Gracias

utiliza el siguiente codigo,crea un boton y en su evento click pon lo siguiente :

Private Sub Command1_Click(Index As Integer)
Dim Str As String
Select Case Index
Case 0: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 0)
Case 1: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 1)
Case 2: Str = Shell("rundll32.exe shell32.dll,SHFormatDrive", 2)
End Select
End Sub