Here's the code that starts the ball rolling when you press this command button. It starts by looking at the form .SCX file and SCANs thru the file looking for textboxes, editboxes, etc. and does the method I showed in my previous message. I have it working to go from the form to the data dictionary, but not from the data dictionary to the form yet. But I think I am real close.

SELECT app_frms
pathname = app_frms.drv+":\"+ALLT(app_frms.dir)+"\"+ALLT(app_frms.name)+".SCX"
IF FILE(pathname)
	USE (pathname) IN 0 SHARED ALIAS form_file
ELSE
	MESSAGEBOX("Form not found at expected location. Verify the form name, drive, and directory for accuracy.",64,"Form to Data Dictionary")
	RETURN
ENDIF

SELECT form_file
SCAN
	STORE "textbox" TO gcString1
	IF ATCLINE(gcString1,class) > 0
		THISFORM.DataDict
	ENDIF
	STORE "editbox" TO gcString1
	IF ATCLINE(gcString1,class) > 0
		THISFORM.DataDict
	ENDIF
	STORE "combobox" TO gcString1
	IF ATCLINE(gcString1,class) > 0
		THISFORM.DataDict
	ENDIF
	STORE "checkbox" TO gcString1
	IF ATCLINE(gcString1,class) > 0
		THISFORM.DataDict
	ENDIF
ENDSCAN

SELECT form_file
USE