' get the app script object
Set appObj = Browser("Welcome To Nexaweb").Page("Welcome To Nexaweb").JavaApplet("DefaultJvmDetector").Object.getScriptObject()
' get the comobox script object
Set comboBox = appObj.findObjectById("combobox")
' fire double click on the combobox to select all the text in the textfield
comboBox.fireDoubleClick
' enter in the new text of the combobox
comboBox.enterText( "New Text" )
' fire the enter key, to end editing and fire the onCommand() event of the comboBox
appObj.fireKey("enter")
' get the text of the label
Set labelObj = appObj.findObjectById("mylabel")
labelText = labelObj.getText()
' check the text to see if it is as expected
if( labelText <> "New Text" ) Then
Reporter.ReportEvent micFail,"Check Label", "Unexpected Label Text"
Else
Reporter.ReportEvent micPass,"Check Label", "Label Text was as expected"
End If
