Private Sub Command1_Click() 'StandardVB-CommandBtn
  RunBug
End Sub
 
Private Sub roCommand1_Click() 'sevCommand
  RunBug
End Sub
 
Private Sub RunBug()
  With TreeView1
    .LabelEdit = tvwManual
    .Nodes.Add , , , "TEST"
    .Nodes(1).Selected = True
    .StartLabelEdit
  End With
End Sub