[Sajad]

[COLOR="#800000"]

أبو يعقوب كتب :والله مشكور ، كان سؤال قديم يراودني، جميل أن يكون من داخل الدوت نت

المثال بالفيجوال

PHP كود :

Dim p As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("vbexpress")
        Dim ico As Icon = Icon.ExtractAssociatedIcon(p(0).MainModule.FileName)
        Me.Icon = ico 


العفو اخي العزيز

بالتوفيق ان شاءالله
[/COLOR]