Drop Down Selection Issue

Below mentioned script is recorded by test complete for desktop application,In this I need to select particular item from the drop down. please write your suggestions.

Sub Test1
Dim invMetrics_Paris
Dim splashFrm
Dim textEdit
Dim mainFrm
Dim accountsFrm
Dim layoutControl
Dim gridLookupEditControl
TestedApps.TestedApp1.Run
Set invMetrics_Paris = Aliases.InvMetrics_Paris
Set splashFrm = invMetrics_Paris.SplashFrm
Set textEdit = splashFrm.txtLogin
Call textEdit.TextBoxMaskBox.Drag(49, 6, -55, 0)
Call textEdit.SetText("demouseraonca")
Set textEdit = splashFrm.txtPassword
Call textEdit.TextBoxMaskBox.Click(22, 12)
Call textEdit.SetText("perform{su}")
splashFrm.btnLogin.ClickButton
Set mainFrm = invMetrics_Paris.MainFrm
Call mainFrm.BarDockControl.DockedBarControl.ClickItem("Accounts")
Set accountsFrm = mainFrm.MdiClient.AccountsFrm
Set layoutControl = accountsFrm.LeftDockPanel.DockPanelContainer.LeftLayoutControl
Call layoutControl.cboClient.Click(170, 12)
Set gridLookupEditControl = invMetrics_Paris.PopupGridLookUpEditForm.GridLookupEditControl
Call gridLookupEditControl.Keys("de")
Call gridLookupEditControl.Click(118, 90)
Call layoutControl.gcAccounts.Click(107, 127)
Set layoutControl = accountsFrm.MainlayoutControl
Call layoutControl.toolbarContainer.DockedBarControl.ClickItem("Edit")
Call layoutControl.TabControlAccounts.tabBasicInfo.BasicInfoLayoutControl.cboAsset.Click(47, 10)
Call invMetrics_Paris.PopupLookupEditForm.Click(34, 40) -------- "In this line of code I want to Select the Particular Item from the drop down "
invMetrics_Paris.XtraMessageBoxForm.SimpleButton.ClickButton
End Sub