Sub RootPaneKeyEvent_Event(e As Event)
Dim KE As Reflector
KE.Target = e ' e is a KeyEvent instance
Dim KeyCode As String
KeyCode = KE.RunMethod("getCode")
If KeyCode = "ENTER" And mComboBox1=True Then
Log("Pressed ENTER in ComboBox1")
TextField2.RequestFocus
End If
If KeyCode = "ENTER" And mComboBox2=True Then
Log("Pressed ENTER in ComboBox2")
TextField1.RequestFocus
End If
End Sub