¿Cómo ejecuta VB un programa VBS?

Función de declaración privada ShellExecute Lib "shell32.dll" Alias ​​​​"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation Como cadena, ByVal lpFile Como cadena, ByVal lpParameters Como cadena, ByVal lpDirectory Como cadena, ByVal nShowCmd As Long) As Long

Subcomando privado1_Click()

ShellExecute 0, "open", "C:\run.vbs", 0, 0, 0

End Sub

La función Shell solo puede ejecutar archivos ejecutables y procesos por lotes

La API Shellexecute puede ejecutar cualquier formato asociado con el sistema