Sub ClickDropDown(ByVal Rekv As String, ByVal Top As Single, ByVal Lft As Single)
     Dim dTree As AsDynamicTree

     Set dDTree = CreateDynamicTree("DTree1", Doc) 
     Call ShowDynamicTree(dTree, Top, Lft) 

     If dTree.isSelected Then 
          Doc.ControlValue(Rekv) = dTree.Code
     End If
End Sub
'******************************************************************************** 
' Purpose:  Creates Dynamic Tree 
' Inputs: 
'     key: Defines which tree must be created 
'     source: Source document or Dialog
' Returns: Dynamic tree 
'********************************************************************************
Public Function CreateDynamicTree(ByVal key As String, ByVal source As Object) As AsDynamicTree

     Dim dynTree As AsDynamicTree
     Dim rs As rdoResultset
     Dim sSql As String

     Set dynTree = New AsDynamicTree 

     Select Case key
     Case "DTree1"
          dynTree.Caption = "DynCAption" 
          dynTree.ECaption = "DynECaption"
          dynTree.TreeId = "TreeID1" 
          dynTree.AddNodeFromTree("D1") 
     End Select 

     Return dynTree
End Function

Public Sub ShowDynamicTree(ByVal dnTree As AsDynamicTree, _
                         ByVal Top As Single, _
                         ByVal Lft As Single, _
                         Optional ByVal IsFullTree As Boolean = False, _ 
                         Optional ByVal LookUpValue As String = "", _
                         Optional ByVal MultiSelectMode As Boolean = False) 

     dnTree.Left = Lft 
     dnTree.Top = Top 
     dnTree.FullTree = IsFullTree 
     dnTree.MultiSelectMode = MultiSelectMode 
     If LookUpValue <> "" Then 
          dnTree.Code = LookUpValue 
     End If 
     dnTree.Show 

End Sub