Hola, te falta decir si es padre o hijo y te falta la propiedad
LineStyle...
Código vb:
Ver originalDim nodx As Node
'...Creo Nodo Padre y sus Hijos/No Sé
TreeView1.LineStyle = tvwRootLines
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "o", "Administración")
Set nodx = TreeView1.Nodes.Add("o", tvwChild, "u", "Cambiar Clave Usuario")
Set nodx = TreeView1.Nodes.Add("o", tvwChild, "a", "Cambiar Clave Administrador")
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "M", "Menú")
Set nodx = TreeView1.Nodes.Add("M", tvwChild, "Us", "Usuarios")
Set nodx = TreeView1.Nodes.Add("M", tvwChild, "Lis", "Listar")
Set nodx = Nothing
saludos.