主题：报如下错误，不知道是哪里原因

试试改成这样，如果不行，上传实例测试。

If e.sender.name Like "Label*" AndAlso typeof e.sender Is winform.label Then
    For Each c As Winform.Control In e.Form.Controls
        If c.name Like "Label*" AndAlso typeof c Is winform.label Then
            c.ForeColor=Color.black
        End If
    Next
    e.Sender.ForeColor=color.red
    Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
    cb.Value=e.Sender.Font.Size
    vars("kj") = e.sender.name
    e.Form.Controls("textbox1").Select
End If

AfterLoad事件，把代码打开

Dim p As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim img As Image = getimage(p.ImageFile)

For Each c As Winform.Control In e.Form.Controls
    '''
    If Typeof c Is WinForm.label Then '判断控件是否是文本框
        Dim t As WinForm.label = c '使用特定类型的变量引用控件
        Dim dr As DataRow=  DataTables("打印参数").Find("[项目]='"& t.text & "'")
        If dr IsNot Nothing
            Dim fnt As New Font(t.Font.Name, dr("字号"), t.Font.Style)
            t.Font = fnt
            t.Left=dr("X")*img.width/230
            t.Top=dr("Y")*img.height/110
        End If
    End If
Next