Visual Basic

Try
                Dim pr As New Process
                With pr.StartInfo
                    .FileName = "cmd.exe"
                    .RedirectStandardInput = True
                    .RedirectStandardOutput = True
                    .UseShellExecute = False
                    .WindowStyle = ProcessWindowStyle.Normal
                End With
                pr.Start()
                pr.StandardInput.WriteLine("format G:" & Convert.ToCha(13)) 'enter to take the pen drive.
pr.StandardInput.WriteLine("{ENTER}") 'next enter to start the formatting process.
        catch ex as exception
msgbox(ex.message)
end try

Dim fdragging As Boolean = False
    Dim StartX, startY As Integer
  
    Private Sub LineShape1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseDown
        fdragging = True
        StartX = e.X
        startY = e.Y
    End Sub

    Private Sub LineShape1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LineShape1.MouseMove
        If fdragging Then
            LineShape1.StartPoint = New Point(LineShape1.StartPoint.X + e.X - StartX, LineShape1.StartPoint.Y + e.Y - startY)
            LineShape1.EndPoint = New Point(LineShape1.EndPoint.X + e.X - StartX, LineShape1.EndPoint.Y + e.Y - startY)
            
        End If
    End Sub

    Private Sub LineShape1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ShapeContainer1.MouseUp
        fdragging = False
        StartX = 0
        startY = 0
    End Sub