[SOLUCIONADO] Agregar parametros a un accesodirecto

[kowa]

Hola, tengo una aplicación que crea un acceso directo a cualquier archivo que seleccione.

El tema es que en destino aparece:

Destino: "Direccion del archivo .exe"

Y yo necesito agregarle unos parametros, por ej: -foto hola.jpg -ram 256

Osea:

Destino: "Direccion del archivo .exe" -foto hola.jpg -ram 256

Mi código

Código:

        Dim Camino As String = "g:\" & txt_svname.Text & ".lnk"

        If Not File.Exists(Camino) Then

            'Creamos el acceso directo

            Dim ob As Object = CreateObject("WScript.Shell")

            Dim vlnk As Object = ob.CreateShortcut(Camino)

            'Buscamos nuestro .exe, puede estar en cualquier carpeta

            vlnk.Targetpath = TextBox1.Text

            vlnk.Save()
            
        End If

Solucionado: vlnk.arguments = "argumento"