主题：目录树 计数对齐

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Value()As String
    Value = nd.FullName.Split("\") '注意这里用FullName属性,不能用FullPath属性
Select Case nd.Level
    Case 0     
        nd.Text = nd.Text & " (" &  Tables("基本信息查询_Table1").Compute("Count([学生姓名])",) & "人))"
    Case 1      
        nd.Text = nd.Text  & " (" & Tables("基本信息查询_Table1").Compute("Count([学生姓名])","学期 = '"& e.Form.Controls("学期").Text  & "'and 班级 = '"& nd.Text &"'") & "人)"
End Select
Next
此主题相关图片如下：qq截图20140905110917.png

怎样把节点后计数对齐，代码怎样改？请指点，谢谢

我想向这样好看点

 

此主题相关图片如下：qq截图20140905121624.png

谢谢