LinkExecute Event Example

This example defines a set of commands for destinations to use in DDE conversations to which your application will respond. This example is for illustration only.

Private Sub Form_LinkExecute (CmdStr As String, Cancel As Integer)
   Cancel = False
   Select Case LCase(CmdStr)
   Case "{big}"
      WindowState = 2   ' Maximize window.
   Case "{little}"
      WindowState = 1   ' Minimize window.
   Case "{hide}"
      Visible = False   ' Hide form.
   Case "{view}"
      Visible = True      ' Display form.
   Case Else
      Cancel = True      ' Execute not allowed.
   End Select
End Sub