Inherits TreeNode后调用SelectedNode.Clone 出错~~~~

Public Class NewTreeNode
    Inherits TreeNode

    Sub New(Optional 名称 As String = "")
        Me.Text = 名称
    End Sub

    Dim D1S As String 
    Public Property D() As String 
        Get
            Return D1S
        End Get
        Set(ByVal value As String )
          D1S =value 
        End Set
    End Property
End Class



'窗体代码.....
  For i = 0 To 25
            Dim TmpTree As New NewTreeNode
            Me.TreeView1.Nodes.Add(TmpTree)
  Next


然后....

Dim Tmp As NewTreeNode = Me.TreeView1.SelectedNode.Clone
这里报错...没有为该对象定义无参数的构造函数。

不知这个怎么解决求大神指点 --------------------编程问答-------------------- 除

补充：.NET技术 ,  VB.NET