Dim ProgressBar1 As New ProgressBar
                ProgressBar1.Name = "progressbar1_18"
                ProgressBar1.Location = New Point(TextBox3.Left, TextBox3.Bottom + 50)
                ProgressBar1.Size = New Size(200, 25)
                ProgressBar1.Step = 1
                ProgressBar1.Maximum = ListView1.CheckedItems.Count - 1
                Me.Panel1.Controls.Add(ProgressBar1)
For I = 0 To ListView1.Items.Count - 1
                    If ListView1.Items(I).Checked Then
                        ListView1.Refresh()
                        ListView1.EnsureVisible(I)
                        ListView1.Items(I).Selected = True
                        ListView1.Items(I).Focused = True
                        Me.Refresh()
                        Me.Focus()
                        If ListView1.Items(I).SubItems(2).Text = "X" Then
                            If My.Computer.FileSystem.DirectoryExists(ListView1.Items(I).SubItems(4).Text & "\DataBase\Convert") = True Then
                                My.Computer.FileSystem.CurrentDirectory = ListView1.Items(I).SubItems(4).Text 
                                Shell("ipconfig", AppWinStyle.NormalFocus, True)
                            End If
ListView1.Items(I).BackColor = Color.LightGoldenrodYellow

                        End If
                        ProgressBar1.Increment(1)
                    End If
                Next