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...

Añade tu respuesta

Haz clic para o