尝试创建快捷方式VB.NET时，表单消失

Question

当我的代码到达Dim MyShortcut...行时，表单消失，没有异常没有窗口错误报告表单只是在进程仍在运行时消失。

Friend Sub CreateShortcut(Location As String, Target As String)
    Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut = CType((New IWshRuntimeLibrary.WshShellClass).CreateShortcut(Location), IWshRuntimeLibrary.IWshShortcut)
    MyShortcut.TargetPath = Target
    MyShortcut.Save()
End Sub

请询问您是否需要更多详情。我不确定是什么导致了这个问题所以不知道还有什么要补充。

提前致谢!!