Я потратил часы, пытаясь выяснить это сегодня, и, к счастью, нашел ответ на другом веб-сайте, поэтому, пожалуйста, обязательно проголосуйте за мой ответ, если это поможет вам.Буду признателен за это!
Imports System
Module Module1
Sub Main()
RunCMDCom("start", "%userprofile%\desktop\AnyShortCut.lnk", False)
End Sub
Public Sub RunCMDCom(command As String, arguments As String, permanent As Boolean)
Dim p As Process = New Process()
Dim pi As ProcessStartInfo = New ProcessStartInfo()
pi.Arguments = " " + If(permanent = True, "/K", "/C") + " " + command + " " + arguments
pi.FileName = "cmd.exe"
p.StartInfo = pi
p.Start()
End Sub
Конечный модуль