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:
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.