[أسامة]

اريد icon Process تظهر فى PictureBox قمت بصنع هذا المثال

كود :

Dim img As New ImageList
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Process name", 250)
            .Columns.Add("ProcessID", 80)
            .GridLines = True
            .SmallImageList = img
        End With
        For Each p In Process.GetProcesses
            With ListView1.Items.Add(p.ProcessName)
                Dim pid = p.Id
                .SubItems.Add(pid)
                Try
                    Dim ico As Icon = Icon.ExtractAssociatedIcon(p.MainModule.FileName)
                    img.Images.Add(pid.ToString, ico)
                    .ImageKey = pid.ToString
                Catch ex As Exception

                End Try
            End With
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox1.Image = img.Images(ListView1.FocusedItem.Index)
    End Sub

لاكن دامن حصل على icon الخطاء