Como van lo que se hizo es cargar la imagen en un archivo.res y utilizarla para todos los formularios y con el paintpicture adaptar el tamaño, ademas la propiedad autoredraw debe estar en true para que no se pierda la imagen
Código:
Dim A, B As Integer
Private Sub Command1_Click()
A = Picture1.Width
B = Picture1.Height
Picture1.PaintPicture LoadResPicture(101, vbResBitmap), 0, 0, A, B
End Sub
saludos