FUNDO DE TELA E FORMS

MELGAREJO 17/09/2011 08:43:11
#384532

Estou com um problema, já resolvi isso mas não lembro mais como fiz, se alguém puder me dar uma ajuda agradeço.

Usei uma rotina daqui do forum para centralizar uma imagem de fundo e dimensiona-la conforme o Resize do form.
No entanto quando tento abrir um Child form a tela aberta fica por baixo do componente picture ou image e mesmo aberto não aparece.
Tentei, quando abrir o form child tornar o image e picture com visible = false mas dai o child form fica fora da tela, muito estranho.
Grato

a rotina que utilizei está abaixo (foi tirada deste forum):

Private Sub MDIForm_Resize()
Picture1.Cls
Me.Picture = LoadPicture([Ô][Ô])
Picture1.Visible = True
Picture1.AutoRedraw = True
Picture1.BackColor = &H8000000C
Picture1.Height = Me.Height
[ô]Para centralizar a imagem no fundo
Image1.Top = Picture1.Height / 2 - Image1.Height / 2
Image1.Left = Picture1.width / 2 - Image1.width / 2
[ô]ou expandir a imagem por todo o fundo
Image1.Stretch = True
Image1.Top = 0
Image1.Left = 0
Image1.Height = Picture1.Height
Image1.width = Picture1.width
Me.Picture = Picture1.Image
End Sub