En la programación de VB, cuando se utiliza creadoc, indica que el tipo de parámetro ByRef no coincide. Solicite orientación al profesor.
Cambiar declaración de API:
Función de declaración pública CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName como cadena, ByVal lpDeviceName como cadena, ByVal lpOutput como cadena, lpInitData como DEVMODE) siempre y cuando
Cambiar a:
Función de declaración pública CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName como cadena, ByVal lpDeviceName como cadena, ByVal lpOutput como cadena, lpInitData como cualquiera) Siempre y cuando