[a.ahmed]

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If ListViewEx1.CheckedItems.Count > 0 Then
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Maximum = 1
        ProgressBar1.Maximum = ListViewEx1.CheckedItems.Count
        Dim thread As New Threading.Thread(AddressOf installation) With {.IsBackground = True}
        thread.Start()
    End If
End Sub

Sub installation()

    Me.Invoke(Sub() Me.Enabled = False)
    'Button1.Invoke(Sub() Button1.Enabled = False)

    For Each itm As ListViewItem In ListViewEx1.Invoke(Function() ListViewEx1.CheckedItems.Cast(Of ListViewItem).ToArray)
        Dim s As String = itm.Text
        ToolStripStatusLabel1.Text = s
        Process.Start(s).WaitForExit()
        ProgressBar1.Invoke(Sub() ProgressBar1.Increment(1))
    Next

    'Button1.Invoke(Sub() Button1.Enabled = True)
    Me.Invoke(Sub() Me.Enabled = True)

    ToolStripStatusLabel1.Text = "تم الانتهاء من تصطيب كل البرامج"
    MsgBox("تم الانتهاء من تصطيب كل البرامج")

End Sub