这段代码不能实现子窗体
如题。。
在VB6里面是好的，但是到了VB.NET里面就不行了。。。。
到底怎么的呢？
Public Class Sheet1
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
Private Declare Auto Function FindWindow Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer
Dim xlap As New Excel.Application

Private Sub Sheet1_Startup() Handles Me.Startup

End Sub

Private Sub Sheet1_Shutdown() Handles Me.Shutdown

End Sub
Dim fm As New ExcelWorkbook1.Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
fm.Show()
SetParent(fm.Handle, xlap.Hwnd)

End Sub
End Class
[解决办法]
给点代码参考下 其中PalletPrint为子窗体ID

Private Sub PalletPrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PalletPrintToolStripMenuItem.Click
        For Each Childform As Form In Me.MdiChildren
            Childform.Close()
        Next

        ShowForm(Me, PalletPrint)
        Me.Hide()
       
    End Sub
    Public Sub ShowForm(ByVal MainForm As Form, ByVal ChildForm As Form)
        For Each _ChildForm As Form In ChildForm.MdiChildren
            _ChildForm.Close()
        Next
        ChildForm.MdiParent = MainForm.Container
        ChildForm.Show()

        'With ChildForm
        '    .Top = MainForm.Top
        '    .Left = MainForm.Left
        '    .Width = MainForm.Width
        '    .Height = MainForm.Height
        'End With
    End Sub