Usando o Command line Arguments da propr. do proje

Pessoal,

Estou tentando passar um argumento na propriedade do projeto na aba Make, Command Line Arguments

Para testar uma proteção anti cópia e com prazo de validade, segue as subs que devem ser colocadas em um módulo,tem que criar um form para abri-lo se estiver no prazo.

Este exemplo esta no site do Macoratti.

O projeto funciona até esgotar o prazo só que depois não consigo liberá-lo sem apagar o registro no Windows.

Ele não executa a função do primeiro If no Sub Main()

Option Explicit
Const GUI = "4BE96C57-F3BF-11D6-A57D-B2A419659821"

Sub Main()
If Command = "Ativar" Then
AtivaAplicativo (GUI)
Else
DesativarEm "10/11/10"
End If
frmprotecao.Show
End Sub

Public Sub DesativarEm(Data As Date)
'Desativa o programa na data informada
Dim chave As String
'Gera a chave com base no codigo identificador do usuario
chave = Left(GUI, 8)
'Se a chave for invalida encerra a aplicação
If GetSetting("Aplicativo", "Security", chave, GUI) <> GUI Then
     MsgBox "Não é possivel executar a aplicação entre em contado com " & vbCrLf & _
     "(flecha@limao.com.br)", vbCritical, _
     "Erro de Validação de chave : A-1"
     End
End If
'Se a data expirar, desativa o aplicativo
If Date >= Data Then
   'grava um valor invalido na chave do registro
   SaveSetting "Aplicativo", "Security", chave, "A-1"
   MsgBox "O periodo de demonstração terminou ! " & vbCrLf & _
   " Para adquirir o sistema entre em contato com (flecha@limao.com.br)", vbCritical, "Erro Interno"
   End
End If
End Sub

Public Sub AtivaAplicativo(codigo As String)
Dim chave As String
chave = Left(codigo, 8)
If Command = "Ativar" Then
SaveSetting "Aplicativo", "Security", chave, codigo
End If
End Sub

Será que alguém pode tentar para ver o que tem de errado?

Flecha