frmMain
Save and Load Ole Objects
Form15
Frame2
Object Loaded
LabelUnsaved
LabelFormat
LabelFormat
LabelLoaded
LabelLoaded
Frame1
Objects in Database
ListObject
	mnuRecord
&Record
mnuRecordLoad
&Load
mnuRecordSave
&Save...
mnuRecordDelete
&Delete
mnuRecordSep1
mnuRecordExit
&Exit
	mnuObject
&Object
mnuObjectInsert
&Insert...
mnuObjectDelete
&Delete
mnuObjectEdit
&Edit
mnuObjectVerb
List1_Click
	Form_Load
DATABASE_NAME
CONNECT_STRING
mnuObjectExit_Click
mnuObjectNew_Click
mnuObjectLoad_Click
mnuObjectSave_Click:
OleDirty
	OleLoaded
OleActivated
ListObject_Click_
LoadListObject
ListObject
Dynasetg
Snapshot6
TextObject
mnuObject_Click
mnuObjectLoad
Enabled
mnuObjectDelete
mnuObjectSave
Text'
CopyFieldToOleE
Field
Ole1A
CopyOleToField_
LabelLoaded
Captionm
mnuObjectDelete_Click
LoadListObjects
mnuObjectInsert_Clicku
mnuObjectActivate_Click$
LargestCurrentVerb
Action
OLE_FETCH_VERBS]
ObjectVerbsCountz
MDIfrmg
ActiveForm
OLEType[
OLE_NONE)
mnuVerbs4
ObjectVerbsP
Visible
VerbMax
PasteOK
mnuPaste
mnuSpecial
mnuFileExit_Click
mnuFileLoad_Click
mnuFileSave_Click:
mnuFile_Click
mnuFileLoad
mnuFileDeleteZ
mnuFileSavej
mnuObjectVerb_
NewObjectCreatedQ
NewOleObject
OLE_MAX_VERBS
mnuObjectVerb_Click
index
OLE_ACTIVATE
OLE_MAX_VERB5
OLE_INSERT_OBJ_DLG
mnuObjectInsert
mnuObjectEditG
mnuFileDelete_Click;
OLE_DELETE
MousePointer
ListObject_DblClick
mnuFileLoad_Clicked
	ListIndex
Listr
sName
Enddo
Elser
CopyAccessOleToField
CopyFieldToAccessOle
HostName
OLE1_Updated
Code*
	mnuRecordJ
Click
mnuRecord_Click
mnuRecordDelete_Click
mnuRecordExit_Click
mnuRecordLoad_Click
mnuRecordSave_Click
mnuRecordLoadN
mnuRecordDeleteo
mnuRecordSave
Image1_ClickG
LabelLoaded_Click
sDocumentName
frmDocumentNameW
TextDocument
TextDocumentName0
iDocumentType
OptionDocumentType
Value
DOCUMENT_TYPE_ACCESS1X
CopyFieldToAccess1xOle!
CopyAccess1xOleToField|
Frame1_DragDropw
Source
Controlt
Frame2_DragDrop
DOCUMENT_TYPE_DEFAULT
DOCUMENT_TYPE_ACCESS1XOLE}
DOCUMENT_TYPE_OLE2
 DOCUMENT_TYPE_ACCESS1XPAINTBRUSH
MeEnd
Form_Unload
Cancel
CopyOle2ToField
CopyFieldToOle2
Label1_Click
DocumentFormatDescription
iType
LabelFormat
DisplayType
LabelUnsaved
OLE_CHANGED
DocumentFormatDescription
0 Access 1.x Ole
1 Ole2
2 Access 1.x Paintbrush
Form_Load
Form_Unload
ListObject_DblClick
LoadListObject
Clear list of items
Create dynaset
select DocumentName from Document
 order by DocumentName
DocumentName
mnuObject_Click
mnuObjectDelete_Click
mnuObjectInsert_Click
Delete Current Object?
Untitled
mnuObjectVerb_Click
mnuRecord_Click
mnuRecordDelete_Click
Delete Object 
 from Database?
delete from Document
 where DocumentName = "
mnuRecordExit_Click
mnuRecordLoad_Click
Create dynaset
select DocumentType, DocumentOle from Document
 where DocumentName = "
Could not find 
DocumentType
DocumentOle
DocumentOle
mnuRecordSave_Click
Set form controlsv
Test global for good name
select DocumentName, DocumentType, DocumentOle from Document
 where DocumentName = "
DocumentName
DocumentType
DocumentOle
DocumentOle
Reload list of objects
Call DoEvents so Updated event for Ole control is triggered)
NewOleObject
OLE1_Updated