Imports IWshRuntimeLibrary '引用:Windows Script Host Object Model 
Private Sub CreateLnk()
        On Error Resume Next
       Dim WshShell As Object
        Dim oShellLink As Object
        Dim strDesktop As String
        WshShell = CreateObject("WＳcript.Shell")
        strDesktop = WshShell.SpecialFolders("Desktop")
        oShellLink = WshShell.CreateShortcut(strDesktop & "田草博客.lnk")
        oShellLink.TargetPath = "http://www.tiancao.net"' 文件再文件名的详细路径
        oShellLink.WindowStyle = 7 '启动样式,1为普通,3最大化,7最小化
        'oShellLink.Hotkey = "CTRL+SHIFT+F" '快捷键
        oShellLink.IconLocation = "C:\WINDOWS\tc.ico" '图标
        oShellLink.Description = "田草博客" '说明
        oShellLink.WorkingDirectory = "C:\WINDOWS"    '工作目录
        oShellLink.Save() '把快捷方式存到磁盘上
End Sub