Module Module1
    Public Function CreateShortcut(ByVal sLinkFile As String, _
      ByVal sTargetFile As String, _
      Optional ByVal sArguments As String = "", _
      Optional ByVal sDescription As String = "", _
      Optional ByVal sWorkingDir As String = "")
        Dim oShell As New Shell32.Shell
        Dim oFolder As Shell32.Folder
        Dim oLink As Shell32.ShellLinkObject
        Dim sw As New IO.StreamWriter(sLinkFile)
        Dim sPath As String
        Dim sFile As String
        sPath = Left$(sLinkFile, InStrRev(sLinkFile, "\") - 1)
        sFile = Mid$(sLinkFile, InStrRev(sLinkFile, "\") + 1)
        sw.Close()
        oFolder = oShell.NameSpace(sPath)
        oLink = oFolder.Items.Item(sFile).GetLink
        With oLink
            If sArguments <> "" Then .Arguments = sArguments
            If sDescription <> "" Then .Description = sDescription
            If sWorkingDir <> "" Then .WorkingDirectory = sWorkingDir
            .Path = sTargetFile
            .Save()
        End With
        oLink = Nothing
        oFolder = Nothing
        oShell = Nothing
    End Function
End Module

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        CreateShortcut("D:\temp\test.lnk", "C:\autoexec.bat")
    End Sub