Private Sub MDIForm_Resize()
'principal es el nombre del formulario midi
'If principal.WindowState = vbMinimized Then
'principal.WindowState = vbMaximized
'End If
'imagen de 640x480
Const IMAGESIZE = 0.566893424036281 ' Tamaño de Imagen
On Local Error Resume Next
'principal.Width = w
'principal.Height = h
Dim ImageWidth As Single
Dim ImageHeight As Single
picStretch.Visible = False
picStretch.AutoRedraw = True
principal.picStretch.Height = principal.ScaleHeight
ImageWidth = principal.picStretch.Picture.Width * IMAGESIZE
ImageHeight = principal.picStretch.Picture.Height * IMAGESIZE
principal.picStretch.PaintPicture principal.picStretch.Picture, 0, 0, principal.ScaleWidth, principal.ScaleHeight, 0, 0, ImageWidth, ImageHeight
Set principal.Picture = picStretch.Image
'para bloquear el tamaño de la ventana
'principal.Height = tamaño
'principal.Width = tamaño
End Sub
