Criando atalhos no menu Iniciar usando DDE

Uma maneira simples de criar atalhos no menu iniciar é utilizando comandos DDE usados anteriormente no Windows 3.1, que também vale para Win95.
Os comandos são:

AddItem, CreateGroup, DeleteGroup, DeleteItem, ShowGroup, ReplaceItem, Reload.

Por exemplo, para se criar uma pasta no menu iniciar, e um atalho dentro dela,
faz-se o seguinte:

1. Crie um Form adicione uma TextBox e um CommandButton.

2. No evento Load do Form, escreva o código:

Sub Form_Load
Text1.LinkTopic = “Progman|Progman”
Text1.LinkMode = 2
End Sub

3. No evento Click do Botão, escreva o código:

Sub Command1_Click
cmd = “[CreateGroup(Teste)]”
cmd = cmd & “[AddItem(c:\windows\calc.exe, Calculadora)]”
Text1.linkexecute cmd
End Sub

Se por acaso você quer exibir uma pasta do menu Iniciar existente defina
a string cmd como:

cmd = “[showgroup(” & “Acessórios” & “,1”
& “)]”

Se quiser que apareça Minimizada, mude o parâmetro para 2.