If Type("_Screen.ActiveForm")= "O" oObjetoAtual = _Screen.ActiveForm.ActiveControl Else oObjetoAtual = .null. EndIf