VB. Net plug-in development - extract files

Tool interface  

Imports System.Diagnostics

Public Class  Extract file form 
    Private Sub  Start extraction button _Click(sender As Object, e As EventArgs) Handles  Start extraction button .Click
         The layer number  = 0
        Call  Extract files ( Extracted folder .Text,  file type .Text,  Storage folder .Text,  Extraction method .Text,  keyword .Text,  Number of extraction layers .Value)
        Process.Start( Storage folder .Text)
        MsgBox(" Extraction complete ！")
    End Sub

    Private Sub  choice 1 Button _Click(sender As Object, e As EventArgs) Handles  choice 1 Button .Click
         Extracted folder .Text =  Select File (4)
    End Sub

    Private Sub  choice 2 Button _Click(sender As Object, e As EventArgs) Handles  choice 2 Button .Click
         Storage folder .Text =  Select File (4)
    End Sub
End Class

Imports System.Diagnostics

Public Class Extract file form
    Private Sub Start extraction button _Click(sender As Object, e As EventArgs) Handles Start extraction button .Click
        The layer number = 0
        Call Extract files ( Extracted folder .Text, file type .Text, Storage folder .Text, Extraction method .Text, keyword .Text, Number of extraction layers .Value)
        Process.Start( Storage folder .Text)
        MsgBox(" Extraction complete ！")
    End Sub

    Private Sub choice 1 Button _Click(sender As Object, e As EventArgs) Handles choice 1 Button .Click
        Extracted folder .Text = Select File (4)
    End Sub

    Private Sub choice 2 Button _Click(sender As Object, e As EventArgs) Handles choice 2 Button .Click
        Storage folder .Text = Select File (4)
    End Sub
End Class