Private Sub MDIForm_Resize() Picture1.Height = Me.Height With Image1 .Stretch = True .Left = 0 .Top = 0 .Width = Me.Width .Height = Me.Height End With End Sub