<visual studio 2010>
Private Sub TWV_LISTE_NodeMouseClick(sender As Object, e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TWV_LISTE.NodeMouseClick
If e.Node.Text = "Semaine Precedante" Then
For i As Byte = 1 To 7
e.Node.TreeView.SelectedNode = e.Node.NextNode
Next
e.Node.EnsureVisible()
End If
End Sub