vb6 - ショートカットを読み込み、フォームを自動的に閉じる

Question

ショートカットリンクが実行されたときに達成したい...フォームは自動的に閉じますが、vbコーディングは初めてなので、助けていただければ幸いです。これまでの私のコードは次のとおりです

Private Sub Form_Load()

Set ss = CreateObject("WScript.Shell")
ss.Run Chr(34) & ss.specialfolders("Desktop") & "\app\SOMEGAME.lnk" & Chr(34)

End Sub