How to change the icon of the shortcut using API

Now I have created a shortcut of a .exe file using vb and Api functions. But the shortcut's icon is the same as the icon of the .exe file. I want to change the icon dynamicly using API function. How can I realize it?
Waiting your reply!
Thank you very much!

you somehow need to call the SetIconLocation method of the IShellLink Interface.
I do not know of an API that is callable from VB to do that.
You could write a small C(++) DLL.