Dim path As String
    Dim img As Image
    Dim bmp As Bitmap
    Dim gr As Graphics
    Dim x, y As Integer
 
    Private Sub init()
        path = "C:\temp\winnt.gif"
        img = Image.FromFile(path)
    End Sub
 
    Public Sub drawImage()
        Me.init()
        bmp = New Bitmap(Me.Width, Me.Height)
        gr = Graphics.FromImage(bmp)
        gr.Clear(System.Drawing.SystemColors.AppWorkspace)
        x = (Me.Width - img.Width) / 2
        y = (Me.Height - img.Height) / 2
        gr.DrawImage(img, x, y, img.Width, img.Height)
        Me.BackgroundImage = bmp
        Application.DoEvents()
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Resize
        Me.drawImage()
    End Sub
 
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Activated
        Me.drawImage()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim f As New Form2
        f.MdiParent = Me
        f.Show()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        init()
    End Sub

   Private Sub Form2_Move(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles MyBase.Move
        CType(Me.MdiParent, Form1).drawImage()
    End Sub
 
    Private Sub Form2_HandleDestroyed(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.HandleDestroyed
        CType(Me.MdiParent, Form1).drawImage()
    End Sub