LoadColumnTitles:

	GOSUB COS.GetDialogBaseUnits              	         ! --> cosWidth, cosHeight
	
	SELECT CASE SCREENSIZE
		
		CASE FROM 0 TO 1023
			LET FONTFACT = cosWidth * 1.150
			
		CASE FROM 1024 THRU 1919
			LET FONTFACT = cosWidth * 1.600
			
		CASE ELSE
			LET FONTFACT = cosWidth * 2.000
			
	ENDSELECT
	
	cosCtlId = IDC.LISTVIEW
	
	cosStyle = LVCFMT.LEFT	                             ! Left justify column text
	cosCol = 0
	cosCtlText$ = "City"
	cosWidth = (FONTFACT * 15)	
	Gosub COS.ListView.InsertTextColumn

	cosCol = cosCol + 1
	cosCtlText$ = "ID"
	cosWidth = (FONTFACT * 3) + 12	!!!!!!!!! 60
	Gosub COS.ListView.InsertTextColumn

	cosStyle = LVCFMT.CENTER	                             ! Center column text
	cosCol = cosCol + 1
	cosCtlText$ = "State"
	cosWidth = (FONTFACT * 5) + 10        !!!!!!! 90
	Gosub COS.ListView.InsertTextColumn

	cosStyle = LVCFMT.LEFT	                             ! Left justify column text
	cosCol = cosCol + 1
	cosCtlText$ = "Zip"
	cosWidth = (FONTFACT * 10)    !!!!!!!!!!!!! + 10         !!!!!!! 160
	Gosub COS.ListView.InsertTextColumn

	cosCol = cosCol + 1
	cosCtlText$ = "Address 1"
	cosWidth = (FONTFACT * 25) !!!!!!!!!!- 20      !!!!!!!!!!!!380
	Gosub COS.ListView.InsertTextColumn

	cosCol = cosCol + 1
	cosCtlText$ = "Address 2"
	cosWidth = (FONTFACT * 25) !!!!!!!!!!!- 20   !!!!!!!!!!!!! 380
	Gosub COS.ListView.InsertTextColumn
	
	Return