祝蛇年万事如意，小弟我从网下上了一段代码学习，不完整，还请帮助看看怎么修改，多谢！

祝蛇年万事如意，我从网上下了一段代码学习，不完整，还请帮助看看如何修改，谢谢！！！
祝蛇年万事如意，我从网上下了一段代码学习，不完整，还请帮助看看如何修改，谢谢！！！

我是从http://blog.sina.com.cn/s/blog_591f16290100ge3l.html看到的。

Imports System.Drawing.Design
Imports System.Windows.Forms.Design
Imports System.ComponentModel

Public Class UserControl1
    <EditorAttribute(GetType(ColumnsSetupEdit), GetType(System.Drawing.Design.UITypeEditor)), _
    DesignerSerializationVisibility(DesignerSerializationVisibility.Content), _
    MergableProperty(True) _
    > _
    Public Property ColumnsSetup() As ColumnsSetup '定义列设置
        Get
            Return _ColumnsSetup
        End Get
        Set(ByVal value As ColumnsSetup)
            _ColumnsSetup = value
        End Set
    End Property
    Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Public Class ColumnsSetupEdit
        Inherits System.Drawing.Design.UITypeEditor
        Public Overloads Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
            Return UITypeEditorEditStyle.Modal '编辑模式为模式Form,DropDown为下拉列表
        End Function
        Public Overloads Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object
            ' Get an IWindowsFormsEditorService.
            Dim editor_service As IWindowsFormsEditorService = _
                CType(provider.GetService(GetType(IWindowsFormsEditorService)),  _
                    IWindowsFormsEditorService)
            ' If we failed to get the editor service, return the value unchanged.
            If editor_service Is Nothing Then Return value
            ' Convert the generic value into a PolyPolyline.
            Dim ppline As ColumnsSetup = DirectCast(value, ColumnsSetup)
            ' Make the editing dialog.
            Dim editor_dialog As New ColumnsSetupFrom '建立自定义的From

            editor_dialog.ColumnsSetup = ppline
            editor_dialog.EditorService = editor_service
            ' Display the editing dialog.
            editor_service.ShowDialog(editor_dialog) '显示Form

            ' Save the new results.
            context.OnComponentChanging()
            If editor_dialog.DialogResult = Windows.Forms.DialogResult.OK Then
                ' Return the new PolyPolyline.
                context.OnComponentChanged()   '会在InitializeComponent方法里自动加入代码
                Return editor_dialog.ColumnsSetup '将编辑好的集合返回
            Else
                ' Return the old PolyPolyline.
                Return ppline
            End If
        End Function
    End Class
End Class

错误：
图片：http://social.msdn.microsoft.com/Forums/getfile/232923
[解决办法]
缺文件
增加到6个字符

[解决办法]
ColumnsSetup缺少，是否少引用或少写了imports什么东西
[解决办法]
看看是什么。