Compression

ello everyone .. the combobox will not work with SelectItem .. there is a solution

Me.ComboBox1.Items.AddRange(New Object() {"-m0", "-mx"})

     Sub Button1Click(sender As Object, e As EventArgs)
     Dim worker As New backgroundworker()
     AddHandler worker.DoWork, New DoWorkEventHandler(AddressOf BackgroundWorker1DoWork)
      worker.RunWorkerAsync()          
    End Sub
    
    Sub BackgroundWorker1DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)       
    Dim q As String = Char.ConvertFromUtf32(34)
     Dim space As String = " "
      Dim Arguments As String = "a -ep1 -r -ed -lc1024 -ld1024 -di$ -mt0 -w./"
        process.Start("BIN\arc.exe", space & Arguments & space & q & comboBox1.Selecteditem.ToString & q & TextBox2.Text & q & space & q & TextBox1.Text & q & space).WaitForExit()
                
        MsgBox("!Done!", vbInformation, "ArcPacker")            
        
    End Sub