怎样将MDIform中的背景图片居中显示？
怎样将MDIform中的背景图片居中显示？
[解决办法]

Option Explicit
    Dim flag As Boolean

Private Sub MDIForm_Resize()
    Picture1.Height = Me.Height
    Image1.Stretch = True
    Image1.Top = Picture1.Height * 0.1
    Image1.Left = Picture1.Width * 0.1
    Image1.Height = Picture1.Height * 0.8
    Image1.Width = Picture1.Width * 0.8
End Sub

Private Sub open_Click()
    If flag Then
        Me.Picture1.Visible = True
        Form1.Hide
    Else
        Me.Picture1.Visible = False
        Form1.Show
    End If
    flag = Not flag
End Sub