VB Code:
Private Declare Function ShellEx Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As Any, _
ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim tNode As Node
TreeView1.Nodes.Add , , "Websites", "Websites"
Set tNode = TreeView1.Nodes.Add("Websites", tvwChild, "www.yahoo.com", "www.yahoo.com")
tNode.Tag = "http://www.yahoo.com"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Tag <> "" Then
ShellEx Me.hwnd, "open", Node.Tag, "", "", 1
End If
End Sub