Public Function CreateNode(ByVal txt As String, ByVal id As String, ByVal Pid As String, ByVal Target As String, ByVal NavigateUrl As String, ByVal ImageUrl As String, ByVal ExpandedImageUrl As String)
Dim nnode As New Microsoft.Web.UI.WebControls.TreeNode()
Dim pnode As New Microsoft.Web.UI.WebControls.TreeNode()
nnode.Text = txt
nnode.ID = ID
nnode.Target = Target
nnode.NavigateUrl = NavigateUrl
nnode.ImageUrl = "../" & ImageUrl
nnode.ExpandedImageUrl = "../" & ExpandedImageUrl
If Pid Is Nothing Then
TV1.Nodes.Add(nnode)
Else
pnode = GetNode(Pid, TV1.Nodes)
pnode.Nodes.Add(nnode)
End If
End Function