MTR中的ColumnHeaderCell的FlatAppearance的属性修改用代码怎么写？

MTR中的ColumnHeaderCell的FlatStyle和FlatAppearance的MouseOverBackColor属性修改用代码怎么写？

1. 
   
2. Dim headercell As New ColumnHeaderCell()
   
3. headercell.FlatStyle = FlatStyle.Flat
   
4. headercell.FlatAppearance = New MultiRowFlatButtonAppearance()
   
5. headercell.FlatAppearance.MouseOverBackColor = Color.Red
   

复制代码

会报错ColumnHeaderCell()和headercell.FlatAppearance = New MultiRowFlatButtonAppearance()

Private Sub funcShowDetail()
        Try
            Dim strSyainmei As String = txtstrSyainmei.Text
            dsZ2103Info = objDA_1.Syainmei_search(strSyainmei)
            Me.GcKinkoDetail.SuspendLayout()
            Me.GcKinkoDetail.DataSource = dsZ2103Info.Tables(0)
            Me.GcKinkoDetail.MultiSelect = False
            Me.GcKinkoDetail.ViewMode = GrapeCity.Win.MultiRow.ViewMode.Row
            Me.GcKinkoDetail.ReadOnly = True
            Me.GcKinkoDetail.ResumeLayout()
            ' ↓==== 変更() C0111:2011/08/1 ====↓
            Me.GcKinkoDetail.ColumnHeadersDefaultHeaderCellStyle.BackColor =Color.MidnightBlue
            Dim headercell As New ColumnHeaderCell（）
            headercell.FlatStyle = FlatStyle.Flat
            headercell.FlatAppearance = New MultiRowFlatButtonAppearance()
            headercell.FlatAppearance.MouseOverBackColor = Color.Red

上面是我调用mtr的函数，您写给我的代码我加进取后会报错？请问如何修改？

还是说代码不应该写在这里面，而是要写在mtr的的vb里面

Sorry, 第三行代码去掉就好了。

1. 
   
2. Dim headercell As New ColumnHeaderCell()
   
3. headercell.FlatStyle = FlatStyle.Flat
   
4. headercell.FlatAppearance.MouseOverBackColor = Color.Red
   

复制代码

ColumnHeaderCell()
这个还是会报错

ColumnHeaderCell()
这个好像没有，请问这是什么？如果是新new的一个headercell，可是没有与我的mtr里面的关联上，下面的属性修改语句又是怎么修改的我的mtr里面的属性的？？

报什么错？异常能发上来吗？