hola esta propiedad de los StdPicure o Picture sirve para redibujar sobre un control sin perder la transparencia de las imagenes gif, como abran notado si utilizan painpicture las transparecias se vuelven negras con esta propiedad no

Código:
Private Sub Form_Paint()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Dim pic As StdPicture
Set pic = LoadPicture("D:\Mis documentos\Mis Imágenes\Mis Figuras\Caritas\Caras\caras143.gif")
Picture1.PaintPicture pic, 0, 0
pic.Render Picture2.hDC, 50, 50, ScaleX(pic.Width, vbHimetric, vbPixels), ScaleY(pic.Height, vbHimetric, vbPixels), 0, pic.Height, pic.Width, -pic.Height, ByVal 0&

End Sub