Private Sub Imetastera_Click()
Dim I As Integer
On Error Resume Next
I = sTREE.Object.SelectedItem.Index
MeniD_AfterUpdate
sTREE.Nodes(I).Selected = True
sTREE.Nodes(I).Expanded = True
End Sub