[Fransesco]

كود :

  ElseIf x.StartsWith("%FOLD_UP%") = True Then

                               Dim xx As String() = Split(x, ".|.")
                               Dim itmm As New ListViewItem
                               itmm.Text = xx(1)
                               itmm.SubItems.Add(xx(2))
                               If itmm.Text = "desktop.ini" Then
                                   itmm.ImageIndex = 2
                               Else
                                   itmm.ImageIndex = 1
                               End If
                               itmm.Group = shl2.ListView1.Groups("Group7")
                               shl2.ListView1.Items.Add(itmm)

                               shl2.lbStatus.Text = "Status : Verificando Aguarde (" & shl2.ListView1.Items.Count & "/" & (allProcess.Length - 1) & ")"

                           End If
                       Next

                       shl2.lbStatus.Text = "Status : StartUp (" & shl2.ListView1.Items.Count & "/" & (allProcess.Length - 1) & ")"

                   Catch ex As Exception

                   End Try

               End If