主题：动态创建相关

老师，动态创建窗口后，在动态创建按钮，报错，那儿有问题呢？

此主题相关图片如下：qq截图20210917102244.jpg

Dim frm As New System.Windows.Forms.Form
frm.name = e.Sender.Name
frm.Topmost = True
frm.width = 500
frm.height = 500

msgbox(e.Sender.Name)

Dim zaj As List(of String) = DataTables("导航").GetValues("分组","分组='" & e.Sender.Name & "'","序号")
For Each za As String In zaj
    Dim ajm As List(of DataRow) = DataTables("导航").Select("分组='" & e.Sender.Name & "' and 名称 Is Not Null","序号")
    For Each aj2 As DataRow In ajm
        Dim aj As String = aj2("名称")
        Dim jpg As String = aj2("图标")
        msgbox(aj)
       
        Dim but As WinForm.Button
        but = frm.CreateControl(aj,ControlTypeEnum.button)
        but.Text=aj
        'but.name = aj
        but.Dock= 1 '锚定
        but.Height= 30 '页面高度
        but.Image=GetImage(jpg)  '图标
        but.TextImageRelation = TextImageRelationEnum.Automatic  '图标相对位置
        but.ImageAlign= ContentAlignment.MiddleLeft '图标位置
        but.VisualStyle= IVisualStyle.Office2010Blue  '主题
        frm.AddControl(but)
        frm.controls.add(frm.Controls(hsmc).basecontrol)
    Next
Next
frm.Show