Usa los eventos AfterExpand y AfterCollapse en vez de AfterSelect.
Código VB:
Ver originalPrivate Sub TreeView1_AfterExpand(sender as Object, e as TreeViewEventArgs) _
Handles TreeView1.AfterExpand
MessageBox.Show("El nodo expandido es: " + e.Node)
End Sub
Saludos.