ocx como archivo de recurso

[A.H.H]

Hola queria saber como se puede cargar en el formulario una ocx que tengo como archivo de recurso, mediante codigo, sin tener que cargarla mediante el menu componentes ni referencias.

Es una barra de progreso llamada mcpbarv2.ocx

El archivo mcpbarv2.ocx ya lo se hacer y en el form load lo pongo en system32 y lo
registro tambien.
Me falta que se pudiera mediante codigo dibujar la barra del ocx en el formulario y poder usarla.

Vamos en 2 palabras que seria un ejecutable que al darle 2 clicks crea un ocx en system32, lo registra y luego se dibuja en el formulario como si lo pusieras en componentes, ahorrandote el empaquetar el ejecutable con el ocx

no se si me explico
tengo esto en un MODULO:

Public Sub CargarOcx(Pat As String) ' Pat = ruta del archivo temporal
Dim myArray() As Byte
Dim myFile As Long
myArray = LoadResData(101, "CUSTOM") 'Carga el archivo de recursos
myFile = FreeFile
Open Pat For Binary Access Write As #myFile
Put #myFile, , myArray ' Escribe el archivo temporal
Close #myFile
End Sub

TENGO ESTO EN FORM:

Private Sub Form_Load()
Call CargarOcx(Environ("Windir") + "\System32\mcpbarv2.ocx") ' Llama a la funcion q crea el archivo temporal'
Shell (Environ("ComSpec") + " /C regsvr32 /s mcpbarv2.ocx")' Registra OCX en silencio ya que la creo en system32''


End Sub

Private Sub Form_Unload(Cancel As Integer)
Kill (Environ("Windir") + "\System32\mcpbarv2.ocx") 'CUANDO SALES SE ELIMINA'
End Sub

No hace falta decir que tengo el archivo de recursos cargado en el proyecto.Creado con el editor de recursos de visual basic.

¿ALGUNA IDEA PARA DIBUJARLA EN EL FORM LA BARRA DE PROGRESO mcpbarv2.ocx MEDIANTE CODIGO?

NO MEDIANTE REFERENCIA NI COMPONENTES



SALU2