object Form4: TForm4
  Left = 194
  Top = 161
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Code Generator'
  ClientHeight = 269
  ClientWidth = 403
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 12
    Top = 12
    Width = 377
    Height = 229
    Lines.Strings = (
      'Private Sub Form_Load()'
      ' Dim RetVal As Integer'
      ''
      ' LockIt1.Visible = False               '#39'Set OCX to invisible'
      
        ' LockIt1.SetPath (App.Path)       '#39'Let OCX know where LICENSE.DA' +
        'T FILE is'
      
        ' RetVal = LockIt1.GetTrialStatus '#39'Check to see status of protect' +
        'ion'
      ' '
      ' Select Case RetVal'
      '  Case -1'
      '   '#39' Still running'
      '  Case 0'
      '   '#39' LICENSE.DAT file is missing'
      '  Case 1'
      '   '#39' Trial Expired'
      '  Case 2'
      '   '#39' Illegal Copy'
      '  Case 3'
      '   '#39' Maximum times used'
      '  Case 4'
      '  '#39'  Registered copy'
      ' End Select'
      ' '
      ' '#39'1) OnRunning      Copy protection is still active'
      ' '#39'2) OnRegistered   The program was registered'
      ' '#39'3) OnMissing      LICENSE.DAT file is missing'
      
        ' '#39'4) OnMaxtimes     The program has exceeded the number of times' +
        ' allowed'
      
        ' '#39'5) OnIllegal      Program was illegally copied to another mach' +
        'ine'
      ' '#39'6) OnExpired      Copy protection has expired.'
      'End Sub'
      ''
      'Private Sub LockIt1_OnExpired()'
      #39' Trial version expired'
      'End'
      'End Sub'
      ''
      'Private Sub LockIt1_OnIllegal()'
      #39' this is an illegal copy'
      'End'
      'End Sub'
      ''
      'Private Sub LockIt1_OnMaxtimes()'
      #39' Max times exceeded'
      'End'
      'End Sub'
      ''
      'Private Sub LockIt1_OnMissing()'
      ' '#39' License file is missing'
      ' End'
      'End Sub'
      ''
      'Private Sub LockIt1_OnRegistered()'
      #39' The program is registered'
      ''
      'End Sub'
      ''
      'Private Sub LockIt1_OnRunning()'
      #39' Trial program still running'
      'End Sub')
    TabOrder = 0
  end
end