Private Sub trv_NodeMouseClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles _
      trv.NodeMouseClick
        Dim objFRM As New frmTest
        objFRM.MdiParent = Me
        objFRM.Show()
        objFRM.Focus()
    End Sub