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.