Visual Basic Foro

Hola a todos, gracias por las respuestas tan rápiadas e interesantes. El problema ya está resuelto, mejor dicho no está resuelto del todo, pero estoy ajustando y probando otra alternativa que aparentemente está dando resultados positivos. Pero me gustaría contestar aunque más no sea para documentar el problema, quizás a alguien le suceda algo parecido.

La primer respuesta para xkiz. Traté de ejecutar el código que tan amablemente nos proporcionara el KPD-Team y que me haces llegar, pero mi vb6 da un error y se cuelga (preparé una imagen para ilustrar, pero no veo como insertarla).

Sin embargo, tengo una duda respecto del mismo. Veo que la carga de la dll se hace utilizando LoadLibrary, cargando una variable de tipo long, lb. La pregunta es: ¿deberé cargar la dll del problema de este modo, para poder utilizar posteriormente FreeLibrary?

Y la segunda respuesta es para el "master" LeandroA.
1 - la dll que uso es: ImageUtils.dll y la función que me daba el problema era la función ConvertBMPtoJPG.

2 - no estoy llamando a ninguna rutina para descargar la memoria, intentaré probar lo que me envía xkiz.

3 - el programita correrá en xp o +. Y como te abrás dado cuenta utilizaba la dll para convertir un BMP a JPG.

Pero: como la rutina que estaba dando problemas debía sacar una instantanea de pantalla y mandarla a un jpg, estaba haciendo algo asi:

   keybd_event vbKeySnapshot, 0&, 0&, 0& 

para luego
  SavePicture Clipboard.GetData(vbCFBitmap), theFile

al clipboard (mal no?) y como lo dejaba en bitmap, luego utilizaba la función de la dll para pasarla a jpg. Pero ahora lo estoy probando utilizando directamente otra función de la misma dll:
getDesktop   

Private Declare Function getDesktop Lib "ImageUtils.dll" _
      (ByVal strFileName As String, ByVal blnEnableOverWrite As Boolean, _
      ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal blnJpeg As Boolean, _
      ByVal JPGCompressQuality As Integer) As Integer

que permite directamente enviar la instantanea a un jpg y..... listo el pollo.

Gracias. Espero sus comentarios. Saludos cordiales.