QTP录制Flight4a.exe程序时，怎么取到订票起始站下拉框的值？

'声明一个函数GetList
Function GetList(i)
   Randomize
   GetList=RandomNumber(0,i)  '随机取0到i之间的数
End Function

For q=0 to 9
'激活敞口,如果对话框Login没有打开，则系统调用将其打开运行
If not Dialog("Login").Exist Then
 SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
End If
'激活对话框Login
Dialog("Login").Activate
'在文本编辑框Edit内输入内容“Mercury”
Dialog("Login").WinEdit("Edit").Set "mercury"
'在文本编辑框Password内输入内容“Mercury”
Dialog("Login").WinEdit("Password:").Set "mercury"
'单击OK按钮
Dialog("Login").WinButton("OK").Click
'激活窗口Flight Reservation
Wait(2)
Window("Flight Reservation").Activate
'在日期输入框Flight No:内输入时间类型的值
Window("Flight Reservation").WinObject("Flight No:").Type "071111"

Dim Get_Count1,Ran_Number1,Result1  '声明三个变量
Get_Count1=Window("Flight Reservation").WinComboBox("Departure Time:").GetItemsCount  '获取下拉控件Departure Time:的记录的总条数
Ran_Number1=GetList(Get_Count1-1)     '调用函数GetList，随机得到一个数
Result1=Window("Flight Reservation").WinComboBox("Departure Time:").GetItem(Ran_Number1)  '获取得第Ran_Number1条记录对应的值
Window("Flight Reservation").WinComboBox("Departure Time:").Select  Result1  '选择上面获取到下拉框的值

Dim Get_Count2,Ran_Number2,Result2  '声明三个变量
Get_Count2=Window("Flight Reservation").WinComboBox("Arrival Time:").GetItemsCount  '获取下拉控件Departure Time:的记录的总条数
Ran_Number2=GetList(Get_Count2-1)  '调用函数GetList，随机得到一个数
Result2=Window("Flight Reservation").WinComboBox("Arrival Time:").GetItem(Ran_Number2)   '获取得第Ran_Number1条记录对应的值
Window("Flight Reservation").WinComboBox("Arrival Time:").Select Result2   '选择上面获取到下拉框的值

Window("Flight Reservation").WinCheckBox("FLIGHT").Click  '单击检查框，打开Flights Table对话框
Window("Flight Reservation").Dialog("Flights Table").Activate
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Edit").Set "1qazse4"   '输入订票人姓名
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0, 1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"      '输入订票张数
Window("Flight Reservation").WinButton("Insert Order").Click  '单击Insert Order按钮，完成订票操作
Window("Flight Reservation").Close   '关闭窗口Flight Reservation
Next