[Resolvido]Atalho no Deskop

Uso o código abaixo para criar um atalho Desktop,
gostaria também de definir por código na propriedade do atalho:
Executar: Minimizado
Comentário: Wano Sistemas


Dim caminho As String
Dim atalhoLnk As Object
Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")
caminho = WshShell.SpecialFolders("Desktop")

Set atalhoLnk = WshShell.CreateShortcut(caminho & "\" & Me.NmAtalho & ".lnk")
atalhoLnk.IconLocation = Me.EIcone
atalhoLnk.TargetPath = Me.FE
atalhoLnk.Save

Abraços,

Amigão desculpe ae de só agora ver a sua duvida.

O DisplayMode funciona assim: 1:Normal, 3:Maximizado, 7:Minimizado

Veja se funfa:

Dim caminho As String
Dim atalhoLnk As Object
Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")
caminho = WshShell.SpecialFolders("Desktop")

Set atalhoLnk = WshShell.CreateShortCut(caminho & "\" & Me.NmAtalho & ".lnk")
atalhoLnk.IconLocation = Me.EIcone
atalhoLnk.TargetPath = Me.FE
atalhoLnk.WindowStyle = 7
atalhoLnk.Description = "Wano Sistemas"
atalhoLnk.Save

JPaulo,
Nada a desculpar e sim muito agradecido pela ajuda.
Funfou legal.

Abraços,

Valew amigo, precisando de novo estamos aqui.

Boa noite

Um exemplo ?

Obrigado

Boa tarde

Da minha parte esta resolvido.

Encontrei solução no exemplo do Luís no Repositório


Bom domingo

Walter


Só falta colocar o resolvido no título do tópico.

[ ]'s