初学者的两个问题，请指点

[tsqqq]

1.我有一个MDI窗体，背景我用一个picturebox，当MDI打开一个form时，这个form不能显示，原因是被picturebox遮住了，如果我用obj.zorder 0or1 方法的话可以设置其他控件的前后，但是窗体不行，请问怎么用代码把窗体它显示在picturebox的上面。
2.如何动态的改变MDI窗体内控件的大小和位置？就是当我最大化的时候，我想窗体上面的控件随之按照比例变化。
感谢！

[suntt]

没弄明白

[litaoa]

1、看你说的应该是有一个mdi父窗体吧。你可以设置他的picture属性，这样就可以显示背景图片，并且也不会档着form了！
2、你在窗体的Form_Resize事件里，写入控制代码就可以了。

[tsqqq]

to litaoa:
能不能给谢form_resize事件里的代码，谢谢

[skywolfY]

不是被picturebox1遮住了，是在它的y方向下边
给你段代码
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long


Option Explicit

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Show
SetParent Form1.hWnd, Picture1.hWnd
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetParent Form1.hWnd, MDIForm1.hWnd
Unload Form1
End Sub
记得关闭窗体时要设回其父窗体，不然会出错

[skywolfY]

哦，忘了你第二个问题了
Private Sub MDIForm_Resize()
If MDIForm1.WindowState <> 1 Then
Dim ctrlTmp As Control
For Each ctrlTmp In MDIForm1.Controls
If TypeOf ctrlTmp Is PictureBox Then
Else

ctrlTmp.Width = MDIForm1.Width / 5
ctrlTmp.Height = MDIForm1.Height / 5
End If
Next ctrlTmp
End If
End Sub