如何建立快捷方式？

在网上找了些例子，但都是用VB运行库来建立的，声明为  
Declare  Function  fCreateShellLink  Lib  "VB5STKIT.DLL"  (ByVal  lpstrFolderName  As  String,  ByVal  lpstrLinkName  As  String,  ByVal  lpstrLinkPath  As  String,  ByVal  lpstrLinkArgs  As  String)  As  Long  
Declare  Function  fCreateShellLink  Lib  "VB6STKIT.DLL"  (ByVal  lpstrFolderName  As  String,  ByVal  lpstrLinkName  As  String,  ByVal  lpstrLinkPath  As  String,  ByVal  lpstrLinkArgs  As  String)  As  Long  
之类的，一运行总是说找不到运行库。有没有更好用的方法啊？另外，我可不可以为这个快捷方式指定一个特定的图标呢？