Private Sub TreeView1_NodeClick(ByVal myNode As Node) Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key Case "id" wmp1.URL = rs("tvurl") End Select End Sub