I am playing with the code necessary to add a rule object to a cursor object
programmatically, and am stuck. This is the code I have:

FUNCTION AddRuleToCursor( pcCursorObject )
LOCAL lcRuleName as String, lcRuleObject as String 

lcRuleName =  'rule' + ALLTRIM( pcCursorObject.cSource ) 
lcRuleObjectName = 'oRule' + ALLTRIM( pcCursorObject.cSource ) 
If Not Pemstatus(pcCursorObject, lcRuleName , 5)
	With pcCursorObject
		.AddNewObject( lcRuleObjectName , lcRuleName )
		FOR EACH loObject IN pcCursorObject.Controls
			IF loObject.Name = UPPER( lcRuleObjectName )
			   .AddRule( loObject )
			ENDIF 
		ENDFOR 
	Endwith
Endif

I'm having difficulty figuring out how to get the oRule object reference
that I need for the .AddRule( oRule )
Any help would be appreciated.

Mike