DDE_VB
DDE_VB
Form1
cmQuit
txApplication
Application
txTopic
Topic
txItem
	cbDDE_App
cbDDE_Topic
cbDDE_Item
	cmRequest
Request
tbError
cmDisconnect
Disconnect
	cbExecute
	cmExecute
Execute
cbPoke
cmPoke
tbText
tbDDE
cmClipboard
	Clipboard
tbStatus
mnFile
&File
miFileEdit
&Edit INI File
miFileExit
E&xit
mnSave
&Save
m	miSaveApp
&Application
miSaveTopic
&Topic
miSaveItem
&Item
miBar1
miSaveExecute
&Execute
miBar2
miSavePoke
&Poke
mnHelp
&Help
miHelpAbout
&About
NO_APP/
MULTIPLE_APPSh
WRONG_DATA_TYPE\
WM_USER
LB_RESETCONTENT
CB_RESETCONTENT
DDEApp'
DDETopic
DDEItemo
	ValidLink
execk
TopicJ
clipnameP
INIFILE
INI_APPS\
HelpFilePath
cmExecute_Click
cmExecuteError
tbError
text'
tbDDEQ
	cbExecute
	DDE_Error
MakeLink
Window
handle[
ErrCon
MakeLinkError
GetModuleHandle
MB_ICONQUESTION
MB_OKCANCELO
USER_CANCELED
	LinkTopict
LinkItem
LinkMode]
COLD*
StuffBox
tbText%
TRUE[
CmRequest_Click
ErrReq{
cmRequestError
	cmRequest
CaptionQ
	cbDDE_App
cbDDE_Topic
cbDDE_Item
FALSE$
cmDisconnect
VisibleG
	cmExecute!
Enabledz
cmPoke
cbPoke|
CmQuit_Click
MousePointer
cmQuitErrorf
DDE_VB
	Form_Load
Initialize
FilePathk
hModule
GetClassWord
hWnd>
GCW_HMODULEI
zBuff`
GetModuleFileName8
sBuff
cbDDE_Item_DropDown
ClearComboBox
Count2h
GetPrivateProfileIntv
arItems
GetPrivateProfileString
cbDDE_Topic_DropDown
arTopics
cbDDE_App_DropDownC
Count
	arIniApps
AppName
cbDDE_App_GotFocusz
tbStatus6
cbDDE_Topic_GotFocusM
cbDDE_App_LostFocus
cbDDE_Topic_LostFocus
cbDDE_App_Change
cmDisconnect_click
cbDDE_Topic_Change
cmDisconnectError
cbDDE_Item_GotFocus
cbDDE_Item_LostFocus
cbExecute_DropDown
arExecutesH
Instruction6
errValu
DecodeErrorF
hWndOld
GetFocus
hWindow
	GetParent
SendMessagec
PutFocus
ClearListBox
cmReqSave_Click
action
WritePrivateProfileString
cbPoke_DropDown
arPokes
cmClipboard_Click
OpenClipboard
CountClipboardFormats
EnumClipboardFormats
GetClipboardFormatName
CloseClipboard
cmPoke_Click
cmPokeError
miHelpAbout_Click
	AboutForm
miSaveApp_Click
miSaveTopic_Click	
miSaveItem_Click 
miSaveExecute_Click4
miSavePoke_ClickO
miFileEdit_Click
miFileExit_Click
miFileExitErrorr
DDE_VB.INI
Applications
cmExecute_Click
MakeLink
No application responded to DDE initiate.  Attempt to start 
While GetModuleUsage(handle) > 1
 Multiple apps running
Select Case ValidLink
 Case SUCCESSi
 CmConnect.Caption = "&Disconnect"
 ValidLink = Truen
 tbDDE.Visible = True"
 tbDDE.LinkRequest
 Case USER_CANCELED, NO_APP, MULTIPLE_APPS
 BreakLink
 Exit Subk
 Case Else
 Stop 
End Select
CmRequest_Click
Connect"&
Request"
Request"&
CmQuit_Click
Form_Load
Connect"
cbDDE_Item_DropDown
Items"
cbDDE_Topic_DropDown
Topics
Topic"
cbDDE_App_DropDown
Applications
Applications
StuffBox
cbDDE_App_GotFocus
Select / Enter Application name to connect to...
cbDDE_Topic_GotFocus
Select / Enter Topic name (e.g. SYSTEM)...
cbDDE_App_LostFocus
cbDDE_Topic_LostFocus
cbDDE_App_Change
cbDDE_Topic_Change
cmDisconnect_click
Connect"
cbDDE_Item_GotFocus
Select / Enter the Item to get (cannot be blank)..."
cbDDE_Item_LostFocus
cbExecute_DropDown
Executes
Execute"
DDE_Error
ClearComboBox
ClearListBox
cmReqSave_Click
 Check for valid link first
 If App doesn't exist in array then
 Add to Apps
 If Topic doesn't exist in array then
 Add to Topics
 If Item doesn't exist in array then
 Add to Itemsn
Applications
Applications
Applications
Applications
Topics
Topic"
cbPoke_DropDown
Pokes"
cmClipboard_Click
CountClipboardFormats ="
 "Private" formats &H200 to &H2FF
(Private)"
 "GDIOBJ" formats  &H300 to &H3FF
(GDIOBJ)
 CF_TEXT
(Built In)
CF_TEXT"
 CF_BITMAP
(Built In)
CF_BITMAP"
 CF_METAFILE
(Built In)
CF_METAFILE"
 CF_SYLK
(Built In)
CF_SYLK"
 CF_DIF)
(Built In)
CF_DIF
 CF_TIFF
(Built In)
CF_TIFF"
 CF_OEMTEXT
(Built In)
CF_OEMTEXT
 CF_DIB)
(Built In)
CF_DIB
 CF_PALETTE
(Built In)
CF_DIB
 CF_OWNERDISPLAY = &H80D
(Built In)
CF_OWNERDISPLAY"
 CF_DSPTEXT = &H81
(Built In)
CF_DSPTEXT
 CF_DSPBITMAP = &H82
(Built In)
CF_DSPBITMAP
 CF_DSPMETAFILEPICT = &H83
(Built In)
CF_DSPMETAFILEPICT
(Unknown)"
Initialize
 Set general constants that cannot be declared:
cmPoke_Click
miHelpAbout_Click
miSaveApp_Click
Applications
Applications
Applications
miSaveTopic_Click
Topics
Topics
Topic"
miSaveItem_Click
Items"
Items"
miSaveExecute_Click
Executes
Executes
Execute"
miSavePoke_Click
Pokes"
Pokes"
miFileEdit_Click
NOTEPAD C:\WINDOWS\DDE_VB.INI"
miFileExit_Click