<code><font color=green>' 
' -----------------------------------------------------------</font>
<font color=green>' SUB: PerformDDE</font>
'
<font color=green>' Performs a Program Manager DDE operation as specified</font>
<font color=green>' by the intDDE flag and the passed in parameters.</font>
<font color=green>' Possible operations are:</font>
'
<font color=green>'   mintDDE_ITEMADD:  Add an icon to the active group</font>
<font color=green>'   mintDDE_GRPADD:   Create a program manager group</font>
'
<font color=green>' IN: [frm] - form containing a label named 'lblDDE'</font>
<font color=green>'     [strGroup] - name of group to create</font>
<font color=green>'     [strTitle] - title of icon or group</font>
<font color=green>'     [strCmd] - command line for icon/item to add</font>
<font color=green>'     [intDDE] - ProgMan DDE action to perform</font>
<font color=green>' 
' -----------------------------------------------------------</font>
'
 
<font color=#000099>Sub</font> PerformDDE(frm <font color=#000099>As</font> _
  Form, <font color=#000099>ByVal</font> strGroup <font color=#000099>As</font> _
  <font color=#000099>String</font>, _
  <font color=#000099>ByVal</font> strCmd <font color=#000099>As</font> <font _
  color=#000099>String</font>, <font color=#000099>ByVal</font> strTitle <font _
  color=#000099>As</font> <font color=#000099>String</font>, _
  <font color=#000099>ByVal</font> intDDE <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, <font color=#000099>ByVal</font> fLog <font _
  color=#000099>As</font> <font color=#000099>Boolean</font>)
 
  <font color=#000099>Const</font> strCOMMA$ = ","
  <font color=#000099>Const</font> strRESTORE$ = ", 1)]"
  <font color=#000099>Const</font> strENDCMD$ = ")]"
  <font color=#000099>Const</font> strSHOWGRP$ = "[ShowGroup("
  <font color=#000099>Const</font> strADDGRP$ = "[CreateGroup("
  <font color=#000099>Const</font> strREPLITEM$ = "[ReplaceItem("
  <font color=#000099>Const</font> strADDITEM$ = "[AddItem("
 
  <font color=#000099>Dim</font> intIdx <font color=#000099>As</font> <font _
    color=#000099>Integer</font>        <font color=green>' loop variable</font>
 
  <font color=green>' Possible ProgMan actions</font>
  <font color=#000099>Const</font> mintDDE_ITEMADD% = 1  <font color=green>' 
  ' AddProgManItem flag</font>
  <font color=#000099>Const</font> mintDDE_GRPADD% = 2   <font color=green>' 
  ' AddProgManGroup flag</font>
 
 
  SetMousePtr gintMOUSE_HOURGLASS
 
  '
  <font color=green>' Initialize for DDE Conversation with Windows Program 
  ' Manager in</font>
  <font color=green>' manual mode (.LinkMode = 2) where destination control is 
  ' not auto-</font>
  <font color=green>' matically updated.  Set DDE timeout for 10 seconds.  The 
  ' loop around</font>
  <font color=green>' DoEvents() is to allow time for the DDE Execute to be 
  ' processsed.</font>
  '
 
  <font color=#000099>Dim</font> intRetry <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>For</font> intRetry = 1 <font color=#000099>To</font> 20
    <font color=#000099>On</font> <font color=#000099>Error</font> Resume <font _
      color=#000099>Next</font>
    frm.lblDDE.LinkTopic = "PROGMAN|PROGMAN"
    <font color=#000099>If</font> Err = 0 <font color=#000099>Then</font>
      <font color=#000099>Exit</font> <font color=#000099>For</font>
    <font color=#000099>End</font> <font color=#000099>If</font>
    DoEvents
  <font color=#000099>Next</font> intRetry
 
  frm.lblDDE.LinkMode = 2
  <font color=#000099>For</font> intIdx = 1 <font color=#000099>To</font> 10
    DoEvents
  <font color=#000099>Next</font>
  frm.lblDDE.LinkTimeout = 100
 
  <font color=#000099>On</font> <font color=#000099>Error</font> Resume <font _
    color=#000099>Next</font>
 
  <font color=#000099>If</font> Err = 0 <font color=#000099>Then</font>
    <font color=#000099>Select</font> <font color=#000099>Case</font> intDDE
    <font color=#000099>Case</font> mintDDE_ITEMADD
      frm.lblDDE.LinkExecute strREPLITEM & strTitle & strENDCMD
      Err = 0
      frm.lblDDE.LinkExecute strADDITEM & strCmd & strCOMMA & _
        strTitle & <font color=#000099>String</font>$(3, strCOMMA) & strENDCMD
    <font color=#000099>Case</font> mintDDE_GRPADD
      #<font color=#000099>If</font> Win16 <font color=#000099>Then</font>
         frm.lblDDE.LinkExecute strADDGRP & strGroup & strCOMMA & _
           strCmd & strENDCMD
      #<font color=#000099>Else</font>
        <font color=green>' Win32</font>
        frm.lblDDE.LinkExecute strADDGRP & strGroup & strENDCMD
      #<font color=#000099>End</font> <font color=#000099>If</font>
      frm.lblDDE.LinkExecute strSHOWGRP & strGroup & strRESTORE
    <font color=#000099>End</font> <font color=#000099>Select</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  '
  <font color=green>' Disconnect DDE Link</font>
  '
 
  frm.lblDDE.LinkMode = 0
  frm.lblDDE.LinkTopic = ""
 
  SetMousePtr gintMOUSE_DEFAULT
  Err = 0
<font color=#000099>End</font> <font color=#000099>Sub</font></code>