Visual Basic

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
    Const SHFD_CAPACITY_DEFAULT = 0 'default drive capacity
    Const SHFD_FORMAT_QUICK = 0 'Quick format.
    Const SHFD_FORMAT_FULL = 1 'Full format.

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

             Try
       
                Dim drvToFormat As Long = 6 '6 is the index of pendrive for G: drive.
                Dim ret As Long

                If chkQuickFormat.Checked Then 'Check for quick format.
                    ret = SHFormatDrive(Me.Handle.ToInt32, _
                    drvToFormat, _
                    SHFD_CAPACITY_DEFAULT, _
                    SHFD_FORMAT_QUICK)
                Else
                    ret = SHFormatDrive(Me.Handle.ToInt32, _
                    drvToFormat, _
                    SHFD_CAPACITY_DEFAULT, _
                    SHFD_FORMAT_FULL)
                End If

                Select Case ret
                    Case -1
                        MsgBox("Error during format operation")
                    Case -2
                        MsgBox("Operation canceled by user")
                    Case -3
                        MsgBox("This drive cannot be formatted")
                    Case Else
                        MsgBox("Done")
                End Select
            Catch ex As Exception
         
                MsgBox(ex.Message)
            End Try
        End If
    End Sub