Private Sub Command1_Click()
 
    If Me.TreeView1.SelectedItem.Index < Me.TreeView1.Nodes.Count Then
       Me.TreeView1.Nodes.Item((Me.TreeView1.SelectedItem.Index) + 1).Selected _
         = True
    End If
 
End Sub
 
Private Sub Form_Load()
 Me.Command1.Default = True
 With Me.TreeView1
    .HideSelection = False
    .LineStyle = tvwRootLines
    .Nodes.Add , , "A1", "ROOT"
    .Nodes.Add , , "A", "A"
    .Nodes.Add "A", Relationship:=tvwChild, Key:="AA", Text:="AA"
    .Nodes.Add "AA", Relationship:=tvwChild, Key:="AAA", Text:="AAA"
    .Nodes.Add "AAA", Relationship:=tvwNext, Key:="AAA3", Text:="AAA3"
    .Nodes.Add "AA", Relationship:=tvwNext, Key:="AAAA", Text:="AAAA"
 End With
End Sub