[justforit]

كود :

Public Sub Ticon(imgpath As String, iconpath As String)
    Dim bmp As New Bitmap(Image.FromFile(imgpath))
    Dim iconHandle = bmp.GetHicon()
    Dim icon As Icon = Icon.FromHandle(iconHandle)
    Using fs As New FileStream(iconpath, FileMode.Create)
        icon.Save(fs)
    End Using
End Sub

هذا الاجراء يحفظه مباشرة الى المسار المرسل

الان يعمل ولا ادري ماهو سر عدم عمله في وقت مضى!