Hola mira en el ucImage.ctl te falta una variable por declarar que es la de:
Dim lAlpha as Byte
Y por eso da un error ademas eso te corrige bastante a mi no me da error en nuevos proyectos después de eso.

Me asombra tú gran invento quisiera que me ayudadras a terminar un OCX si no es mucha molestia.

Y no hallo una razón lógica es en VB6 SP6 donde pasa el problema.