Problema con extracción de iconos

[aaronduran2]

Hola. El archivo RES de mi troyano contiene iconos que se pueden utilizar para crear el servidor. Para poder utilizarlos uso la siguiente función:

Código (vb) [Seleccionar] Expandir


Public Function ExtraerIconoRes(Pic As Image, NumeroIcono As Integer, Ruta As String)
Pic.Picture = LoadResPicture(NumeroIcono, 101)
SavePicture Pic.Picture, Ruta
End Function


El problema es que, a veces, el icono se ve entrecortado después de extraerlo, y al reemplazar el icono del servidor por el extraído ocurre lo mismo.

Gracias de antemano.