Abrir form desde treeview. Tengo construido un treeview con el siguiente código:
Private Sub Form_Load()
Dim nodx As Node
Dim nodx1 As Node
'1-Relative, tvwChild-Relationship, "g"-Key, "George"-Text
Set nodx = TreeView1.Nodes.Add(, , , "Hierarchal Structure Example (ROOT)") 'Root of Treeview Control
Set nodx = TreeView1.Nodes.Add(1, tvwChild, "Topic1", "OPS")
Set nodx = TreeView1.Nodes.Add("Topic1", tvwChild, "Level2A", "SOAR")
Set nodx = TreeView1.Nodes.Add("Level2A", tvwChild, "Level3A", "Provider Service")
Set nodx = TreeView1.Nodes.Add("Level3A", tvwChild, "Level4A", "Provider Services")
Set nodx = TreeView1.Nodes.Add("Level3A", tvwChild, "Level4B", "ALL Reviews")
Set nodx = TreeView1.Nodes.Add("Level2A", tvwChild, "Level3B", "Service Quality")
Set nodx = TreeView1.Nodes.Add("Level3B", tvwChild, "Level4C", "QA")
Set nodx = TreeView1.Nodes.Add("Topic1", tvwChild, "Level2B", "DOES")
Set nodx = TreeView1.Nodes.Add("Level2B", tvwChild, "Level3C", "Document Operations")
Set nodx = TreeView1.Nodes.Add("Level3C", tvwChild, "Level4D", "NA")
Set nodx = TreeView1.Nodes.Add("Level2B", tvwChild, "Level3D", "Process Engineering")
Set nodx = TreeView1.Nodes.Add("Level3D", tvwChild, "Level4E", "NA")
Set nodx = TreeView1.Nodes.Add("Level2B", tvwChild, "Level3E", "Electronic Solutions")
Set nodx = TreeView1.Nodes.Add("Level3E", tvwChild, "Level4F", "ES Support")
Set nodx = TreeView1.Nodes.Add("Level3E", tvwChild, "Level4G", "ES Maintenance")
Set nodx = TreeView1.Nodes.Add(1, tvwChild, "Topic2", "Finance")
Set nodx = TreeView1.Nodes.Add("Topic2", tvwChild, "Level2C", "Monroe")
Set nodx = TreeView1.Nodes.Add("Level2C", tvwChild, "Level3F", "ASO")
Set nodx1 = TreeView1.Nodes.Add("Level3F", tvwChild, "Level4H", "ASO Customer Service")
Set nodx = TreeView1.Nodes.Add("Level3F", tvwChild, "Level4I", "ASO Claims")
Set nodx = TreeView1.Nodes.Add("Level3F", tvwChild, "Level4J", "ASO Rewards")
Set nodx = TreeView1.Nodes.Add("Level2C", tvwChild, "Level3G", "PCG")
Set nodx = TreeView1.Nodes.Add("Level3G", tvwChild, "Level4K", "Customer Guarantees")
nodx.EnsureVisible
TreeView1.Nodes(1).ForeColor = QBColor(4)
Exit_Form_Load:
Exit Sub
Err_Form_Load:
MsgBox Err.Description, vbExclamation, "Error in TreeView_Form_Load()"
Resume Exit_Form_Load
End Sub
Hasta aquí todo bien... Pero no se como hacer para que cuando de clic en un nodo especifico ... Me abra un formulario especifico...