关于VB如何引用VB6STKIT.DLL

 Private Declare Function fCreateShellLink Lib "vb6stkit.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
Private Sub Command1_Click()
   '   'XP使用
   Call fCreateShellLink("../../Desktop", "CBM666的桌面快捷键", "C:/calc.exe", "", True, "$(Programs)")
   '2000 使用
   Call fCreateShellLink("../../桌面", "CBM666的桌面快捷键", "C:/calc.exe", "", True, "$(Programs)")
End Sub

 

以上是一位前辈( cbm666 )提供的源码!     在此非常感谢!!!!!!!