Private Sub TreeView1_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles TreeView1.DoubleClick
 
Select Case sender.SelectedNode.Text
   Case "A"
     DoThis()
   Case "B"
     DoOther()
End Select
 
End Sub