>What's being done in the InteractiveChange? I've never seen an editbox cut off text like you're describing if it's tall enough to show scrollbars (at least 3 lines high).

Fred:

Here is code from the Interactivechange of RaviCbo1.

SELECT HealthCond,RecordDate,ResolvDate FROM OngoingHealth INTO CURSOR CurOnGoingHealth NOFILTER ;
	WHERE OngoingHealth.HealthNum = mHealthNum

mCondition = CurOnGoinghealth.HealthCond
mRecordDate = CurOnGoingHealth.RecordDate
mDateResolved = CurOnGoingHealth.ResolvDate

thisform.pageframe1.page4.grid1.RecordSource = "CurOnGoingHealth"

thisform.pageframe1.page4.Grid1.ColumnCount = 3
thisform.pageframe1.page4.grid1.RowHeight = 100
thisform.pageframe1.page4.grid1.column1.sparse = .f.

thisform.pageframe1.page4.grid1.column1.header1.Caption = "Condition"
thisform.pageframe1.page4.grid1.column1.header1.FontName = "Tahoma"
thisform.pageframe1.page4.grid1.column1.header1.FontSize = 8
thisform.pageframe1.page4.grid1.column1.Width = 300

thisform.pageframe1.page4.grid1.column2.header1.Caption = "Date Recorded"
thisform.pageframe1.page4.grid1.column2.header1.FontName = "Tahoma"
thisform.pageframe1.page4.grid1.column2.header1.FontSize = 8
thisform.pageframe1.page4.grid1.column2.Width = 80

thisform.pageframe1.page4.grid1.column3.header1.Caption = "Date Resolved"
thisform.pageframe1.page4.grid1.column3.header1.FontName = "Tahoma"
thisform.pageframe1.page4.grid1.column3.header1.FontSize = 8
thisform.pageframe1.page4.grid1.column3.Width = 80

thisform.pageframe1.page4.grid1.Refresh()