[_m3]

Private Sub cmdShellLink_Click()
Dim sDesk As String
Dim oShell As New IWshShell_Class
Dim oShortCut As New IWshShortcut_Class

sDesk = oShell.SpecialFolders.Item("Desktop")
Set oShortCut = oShell.CreateShortcut(sDesk & "\" & Trim$(txtName) & ".lnk")

With oShortCut
    .TargetPath = Trim$(txtTarget)
    .Description = txtDescription
    .Arguments = txtArguments
    .WorkingDirectory = txtStartIn
    .WindowStyle = cboStyles.ItemData(cboStyles.ListIndex)
    .Save
End With

Set oShell = Nothing
Set oShortCut = Nothing
End Sub