[مبتدئ]

هل يمكن اداف صوره بامتداد icon الى PictureBox
جربت هذا الكود

كود :

For Each i As ListViewItem In ListView1.SelectedItems
            If i.SubItems.Count >= 3 Then
                Dim pr As New Process
                pr.StartInfo.FileName = "explorer.exe"
                pr.StartInfo.Arguments = i.SubItems(2).Text.Remove(i.SubItems(2).Text.LastIndexOf("\") + 1, _
                                                 (i.SubItems(2).Text.Length - i.SubItems(2).Text.LastIndexOf("\") - 1))
                TextBox1.Text = pr.StartInfo.Arguments + ListView1.SelectedItems.Item(0).Text + ".exe"

            End If
        Next
        Dim myHandle As IntPtr
        For Each proc In Process.GetProcesses
            If proc.MainWindowHandle = myHandle Then
                Dim a As Icon
                a = Icon.ExtractAssociatedIcon(TextBox1.Text)
                ImageList1.Images.Add(a)
                PictureBox1.Image = ImageList1.Images(0)
                nIndex = nIndex + 1
            End If
        Next

المشكله فى الكود ان الصوره مابتغيرش مع تغير مصار الصوره