ext.net 在后台自定义在已经存在的Module 中加入一个窗体

Public Shared Sub ExtNetDesktop_CreateWin(ByRef objExtNetDesktop As Ext.Net.Desktop, strModuleName As String, ByVal intWidth As Integer, ByVal intHeight As Integer, ByVal strURL As String)
        Dim strIconIcs As String
        Dim strModName As String
        strModName = objExtNetDesktop.Modules(strModuleName).Shortcut.Name
        strIconIcs = objExtNetDesktop.Modules(strModuleName).Shortcut.IconCls
        CreateDynamicWindows(objExtNetDesktop, strModuleName, strModName, strIconIcs, intWidth, intHeight, strURL)
    End Sub