Private Sub MDIForm_Resize()
On Error Resume Next
Dim ImageWidth As Single
Dim ImageHeight As Single
picStretch.Visible = False
picStretch.AutoRedraw = True
picStretch.Height = Me.ScaleHeight 'By Mirador
ImageWidth = picStretch.ScaleX(picStretch.Picture.Width, vbHimetric, vbTwips)
ImageHeight = picStretch.ScaleY(picStretch.Picture.Height, vbHimetric, vbTwips)
picStretch.PaintPicture picStretch.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, ImageWidth, ImageHeight
Set Me.Picture = picStretch.Image
End Sub
En este caso, deberías tener un Picture llamado picStretch con la imagen que quieres que se ajuste a la ventana MDI.