¡Buenas! He hecho un programa en visual bisc 6, pero cuando se lo paso a un amigo, y el lo arranca en su ordenador, le salta el siguiente error al cargar un form:

Run time error '339'

Component 'COMDLG32.OCX' or one of its dependencies not correctly registered: a file is missing or invalid

Supongo que no tendra registrado el COMDLG32.OCX, asi hize un form donde
poder registrarlo automaticamente:

Private Sub Form_Load()
Set objShell = CreateObject("Wscript.Shell")
Text1.Text = objShell.ExpandEnvironmentStrings("%WINDIR%\System32")
FileCopy App.Path & "\Comdlg32.ocx", Text1
Shell "cmd.exe /k regsvr32 C:\Windows\system32\comdlg32.ocx", vbNormalFocus
Unload Me
End Sub

He probado con este código, y me lo registra bien, pero al copiarlo me da error de acceso a ruta o archivo.

¿Como puedo solucionarlo?
Gracias por vuestra ayuda

Salu2!!

He probado con permisos de administrador y nada. Tampoco va el código. ¿Alguna otra sugerencia?