层窗体支持鼠标调整大小及在原层窗体上显示控件

    Private DYD As New DYSYSTEM.DYD

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '资源图的9格分切

        Dim R As New DYSYSTEM.DYD.ImageSplitRects

        With R

            .TopLeft = New Rectangle(0, 0, 10, 32)

            .Top = New Rectangle(10, 0, 2, 32)

            .TopRight = New Rectangle(53, 0, 10, 32)

            .Left = New Rectangle(0, 32, 10, 21)

            .Center = New Rectangle(10, 32, 43, 21)

            .Right = New Rectangle(53, 32, 10, 21)

            .BottomLeft = New Rectangle(0, 53, 10, 10)

            .Bottom = New Rectangle(10, 53, 2, 10)

            .BottomRight = New Rectangle(53, 53, 10, 10)

        End With

        DYD.ImgSplitRects = R

        '生成放大图

        DYD.MakeSplitedImage(Me.Size, Bitmap.FromFile(Application.StartupPath & "\form.png"), Me.BackgroundImage)

        '使窗体支持鼠标拖动

        DYD.SuportMove(Me, True)

        '使窗体支持鼠标调整大小

        DYD.SuportReSize(Me, True)

        '开始渲染

        DYD.StartDraw(Me)

    End Sub