For x = 0 To ListBox1.Items.Count - 1
                Dim pr As New ProcessStartInfo
                pr.FileName = "bot.exe"
                pr.Arguments = """" & ListBox1.Items.Item(x) & """ """ & _
                  ListBox2.Items.Item(x) & """ """ & TextBox4.Text & """ """ & _
                  TextBox5.Text & """" & " " & TextBox6.Text
                pr.WindowStyle = ProcessWindowStyle.Minimized
                Process.Start(pr)
                Application.DoEvents()
            Next