home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / inimag / inimagic.frm < prev    next >
Text File  |  1994-09-09  |  58KB  |  1,615 lines
  1. VERSION 2.00
  2. Begin Form frmINIMAGICV21 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "INIMAGIC Version 2.2 DEMO"
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   1245
  8.    ClientTop       =   420
  9.    ClientWidth     =   9600
  10.    Height          =   7320
  11.    Icon            =   INIMAGIC.FRX:0000
  12.    Left            =   1185
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6915
  17.    ScaleWidth      =   9600
  18.    Top             =   75
  19.    Width           =   9720
  20.    Begin SSFrame fra3dINIMAGIC 
  21.       Caption         =   "AccessModes"
  22.       Font3D          =   0  'None
  23.       FontBold        =   0   'False
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       ForeColor       =   &H00000000&
  30.       Height          =   3645
  31.       Index           =   3
  32.       Left            =   6090
  33.       TabIndex        =   45
  34.       Top             =   7620
  35.       Visible         =   0   'False
  36.       Width           =   5595
  37.       Begin SSOption opt3dAM 
  38.          Caption         =   "&Both"
  39.          Font3D          =   0  'None
  40.          FontBold        =   0   'False
  41.          FontItalic      =   0   'False
  42.          FontName        =   "MS Sans Serif"
  43.          FontSize        =   8.25
  44.          FontStrikethru  =   0   'False
  45.          FontUnderline   =   0   'False
  46.          Height          =   195
  47.          Index           =   2
  48.          Left            =   4020
  49.          TabIndex        =   75
  50.          Top             =   1920
  51.          Value           =   -1  'True
  52.          Width           =   885
  53.       End
  54.       Begin SSOption opt3dAM 
  55.          Caption         =   "&Read"
  56.          Font3D          =   0  'None
  57.          FontBold        =   0   'False
  58.          FontItalic      =   0   'False
  59.          FontName        =   "MS Sans Serif"
  60.          FontSize        =   8.25
  61.          FontStrikethru  =   0   'False
  62.          FontUnderline   =   0   'False
  63.          Height          =   195
  64.          Index           =   0
  65.          Left            =   2250
  66.          TabIndex        =   74
  67.          TabStop         =   0   'False
  68.          Top             =   1920
  69.          Width           =   885
  70.       End
  71.       Begin SSOption opt3dAM 
  72.          Caption         =   "&Write"
  73.          Font3D          =   0  'None
  74.          FontBold        =   0   'False
  75.          FontItalic      =   0   'False
  76.          FontName        =   "MS Sans Serif"
  77.          FontSize        =   8.25
  78.          FontStrikethru  =   0   'False
  79.          FontUnderline   =   0   'False
  80.          Height          =   195
  81.          Index           =   1
  82.          Left            =   3150
  83.          TabIndex        =   73
  84.          TabStop         =   0   'False
  85.          Top             =   1920
  86.          Width           =   885
  87.       End
  88.       Begin CommandButton cmdDoneAM 
  89.          Caption         =   "&Done"
  90.          FontBold        =   0   'False
  91.          FontItalic      =   0   'False
  92.          FontName        =   "MS Sans Serif"
  93.          FontSize        =   8.25
  94.          FontStrikethru  =   0   'False
  95.          FontUnderline   =   0   'False
  96.          Height          =   315
  97.          Left            =   4620
  98.          TabIndex        =   63
  99.          Top             =   3210
  100.          Width           =   825
  101.       End
  102.       Begin CommandButton cmdAMSteps 
  103.          Caption         =   "&1"
  104.          FontBold        =   0   'False
  105.          FontItalic      =   0   'False
  106.          FontName        =   "MS Sans Serif"
  107.          FontSize        =   8.25
  108.          FontStrikethru  =   0   'False
  109.          FontUnderline   =   0   'False
  110.          Height          =   345
  111.          Index           =   0
  112.          Left            =   270
  113.          TabIndex        =   62
  114.          Top             =   510
  115.          Width           =   315
  116.       End
  117.       Begin CommandButton cmdAMSteps 
  118.          Caption         =   "&2"
  119.          FontBold        =   0   'False
  120.          FontItalic      =   0   'False
  121.          FontName        =   "MS Sans Serif"
  122.          FontSize        =   8.25
  123.          FontStrikethru  =   0   'False
  124.          FontUnderline   =   0   'False
  125.          Height          =   345
  126.          Index           =   1
  127.          Left            =   270
  128.          TabIndex        =   61
  129.          Top             =   840
  130.          Width           =   315
  131.       End
  132.       Begin CommandButton cmdAMSteps 
  133.          Caption         =   "&3"
  134.          FontBold        =   0   'False
  135.          FontItalic      =   0   'False
  136.          FontName        =   "MS Sans Serif"
  137.          FontSize        =   8.25
  138.          FontStrikethru  =   0   'False
  139.          FontUnderline   =   0   'False
  140.          Height          =   345
  141.          Index           =   2
  142.          Left            =   270
  143.          TabIndex        =   60
  144.          Top             =   1170
  145.          Width           =   315
  146.       End
  147.       Begin CommandButton cmdAMSteps 
  148.          Caption         =   "&4"
  149.          FontBold        =   0   'False
  150.          FontItalic      =   0   'False
  151.          FontName        =   "MS Sans Serif"
  152.          FontSize        =   8.25
  153.          FontStrikethru  =   0   'False
  154.          FontUnderline   =   0   'False
  155.          Height          =   345
  156.          Index           =   3
  157.          Left            =   270
  158.          TabIndex        =   59
  159.          Top             =   1500
  160.          Width           =   315
  161.       End
  162.       Begin CommandButton cmdAMSteps 
  163.          Caption         =   "&5"
  164.          FontBold        =   0   'False
  165.          FontItalic      =   0   'False
  166.          FontName        =   "MS Sans Serif"
  167.          FontSize        =   8.25
  168.          FontStrikethru  =   0   'False
  169.          FontUnderline   =   0   'False
  170.          Height          =   345
  171.          Index           =   4
  172.          Left            =   270
  173.          TabIndex        =   58
  174.          Top             =   1830
  175.          Width           =   315
  176.       End
  177.       Begin CommandButton cmdAMSteps 
  178.          Caption         =   "&6"
  179.          FontBold        =   0   'False
  180.          FontItalic      =   0   'False
  181.          FontName        =   "MS Sans Serif"
  182.          FontSize        =   8.25
  183.          FontStrikethru  =   0   'False
  184.          FontUnderline   =   0   'False
  185.          Height          =   345
  186.          Index           =   5
  187.          Left            =   270
  188.          TabIndex        =   57
  189.          Top             =   2160
  190.          Width           =   315
  191.       End
  192.       Begin SSPanel pnl3dINIMAGIC 
  193.          AutoSize        =   3  'AutoSize Child To Panel
  194.          BackColor       =   &H00C0C0C0&
  195.          BevelOuter      =   1  'Inset
  196.          BevelWidth      =   2
  197.          Caption         =   "Panel3D1"
  198.          Font3D          =   0  'None
  199.          Height          =   255
  200.          Index           =   12
  201.          Left            =   2190
  202.          TabIndex        =   55
  203.          Top             =   540
  204.          Width           =   2985
  205.          Begin TextBox txtINIMAGIC 
  206.             BorderStyle     =   0  'None
  207.             FontBold        =   0   'False
  208.             FontItalic      =   0   'False
  209.             FontName        =   "MS Sans Serif"
  210.             FontSize        =   8.25
  211.             FontStrikethru  =   0   'False
  212.             FontUnderline   =   0   'False
  213.             Height          =   195
  214.             Index           =   11
  215.             Left            =   30
  216.             TabIndex        =   56
  217.             Top             =   30
  218.             Width           =   2925
  219.          End
  220.       End
  221.       Begin SSPanel pnl3dINIMAGIC 
  222.          AutoSize        =   3  'AutoSize Child To Panel
  223.          BackColor       =   &H00C0C0C0&
  224.          BevelOuter      =   1  'Inset
  225.          BevelWidth      =   2
  226.          Caption         =   "Panel3D1"
  227.          Font3D          =   0  'None
  228.          Height          =   255
  229.          Index           =   11
  230.          Left            =   2190
  231.          TabIndex        =   53
  232.          Top             =   870
  233.          Width           =   2985
  234.          Begin TextBox txtINIMAGIC 
  235.             BorderStyle     =   0  'None
  236.             FontBold        =   0   'False
  237.             FontItalic      =   0   'False
  238.             FontName        =   "MS Sans Serif"
  239.             FontSize        =   8.25
  240.             FontStrikethru  =   0   'False
  241.             FontUnderline   =   0   'False
  242.             Height          =   195
  243.             Index           =   10
  244.             Left            =   30
  245.             TabIndex        =   54
  246.             Top             =   30
  247.             Width           =   2925
  248.          End
  249.       End
  250.       Begin SSPanel pnl3dINIMAGIC 
  251.          AutoSize        =   3  'AutoSize Child To Panel
  252.          BackColor       =   &H00C0C0C0&
  253.          BevelOuter      =   1  'Inset
  254.          BevelWidth      =   2
  255.          Caption         =   "Panel3D1"
  256.          Font3D          =   0  'None
  257.          Height          =   255
  258.          Index           =   10
  259.          Left            =   2190
  260.          TabIndex        =   51
  261.          Top             =   1200
  262.          Width           =   2985
  263.          Begin TextBox txtINIMAGIC 
  264.             BorderStyle     =   0  'None
  265.             FontBold        =   0   'False
  266.             FontItalic      =   0   'False
  267.             FontName        =   "MS Sans Serif"
  268.             FontSize        =   8.25
  269.             FontStrikethru  =   0   'False
  270.             FontUnderline   =   0   'False
  271.             Height          =   195
  272.             Index           =   9
  273.             Left            =   30
  274.             TabIndex        =   52
  275.             Top             =   30
  276.             Width           =   2925
  277.          End
  278.       End
  279.       Begin SSPanel pnl3dINIMAGIC 
  280.          AutoSize        =   3  'AutoSize Child To Panel
  281.          BackColor       =   &H00C0C0C0&
  282.          BevelOuter      =   1  'Inset
  283.          BevelWidth      =   2
  284.          Caption         =   "Panel3D1"
  285.          Font3D          =   0  'None
  286.          Height          =   255
  287.          Index           =   9
  288.          Left            =   2190
  289.          TabIndex        =   49
  290.          Top             =   1530
  291.          Width           =   2985
  292.          Begin TextBox txtINIMAGIC 
  293.             BorderStyle     =   0  'None
  294.             FontBold        =   0   'False
  295.             FontItalic      =   0   'False
  296.             FontName        =   "MS Sans Serif"
  297.             FontSize        =   8.25
  298.             FontStrikethru  =   0   'False
  299.             FontUnderline   =   0   'False
  300.             Height          =   195
  301.             Index           =   8
  302.             Left            =   30
  303.             TabIndex        =   50
  304.             Top             =   30
  305.             Width           =   2925
  306.          End
  307.       End
  308.       Begin SSPanel pnl3dINIMAGIC 
  309.          AutoSize        =   3  'AutoSize Child To Panel
  310.          BackColor       =   &H00C0C0C0&
  311.          BevelOuter      =   1  'Inset
  312.          BevelWidth      =   2
  313.          Caption         =   "Panel3D1"
  314.          Font3D          =   0  'None
  315.          Height          =   255
  316.          Index           =   7
  317.          Left            =   2190
  318.          TabIndex        =   47
  319.          Top             =   2550
  320.          Width           =   3015
  321.          Begin TextBox txtINIMAGIC 
  322.             BorderStyle     =   0  'None
  323.             FontBold        =   0   'False
  324.             FontItalic      =   0   'False
  325.             FontName        =   "MS Sans Serif"
  326.             FontSize        =   8.25
  327.             FontStrikethru  =   0   'False
  328.             FontUnderline   =   0   'False
  329.             Height          =   195
  330.             Index           =   6
  331.             Left            =   30
  332.             TabIndex        =   48
  333.             Top             =   30
  334.             Width           =   2955
  335.          End
  336.       End
  337.       Begin CommandButton cmdAMSteps 
  338.          Caption         =   "&7"
  339.          FontBold        =   0   'False
  340.          FontItalic      =   0   'False
  341.          FontName        =   "MS Sans Serif"
  342.          FontSize        =   8.25
  343.          FontStrikethru  =   0   'False
  344.          FontUnderline   =   0   'False
  345.          Height          =   345
  346.          Index           =   6
  347.          Left            =   270
  348.          TabIndex        =   46
  349.          Top             =   2490
  350.          Width           =   315
  351.       End
  352.       Begin Label lblINIMAGIC 
  353.          AutoSize        =   -1  'True
  354.          BackStyle       =   0  'Transparent
  355.          Caption         =   "Steps:"
  356.          FontBold        =   0   'False
  357.          FontItalic      =   0   'False
  358.          FontName        =   "MS Sans Serif"
  359.          FontSize        =   8.25
  360.          FontStrikethru  =   0   'False
  361.          FontUnderline   =   0   'False
  362.          Height          =   195
  363.          Index           =   21
  364.          Left            =   180
  365.          TabIndex        =   72
  366.          Top             =   270
  367.          Width           =   450
  368.       End
  369.       Begin Label lblINIMAGIC 
  370.          AutoSize        =   -1  'True
  371.          BackStyle       =   0  'Transparent
  372.          Caption         =   "(.ini) File Name:"
  373.          FontBold        =   0   'False
  374.          FontItalic      =   0   'False
  375.          FontName        =   "MS Sans Serif"
  376.          FontSize        =   8.25
  377.          FontStrikethru  =   0   'False
  378.          FontUnderline   =   0   'False
  379.          Height          =   195
  380.          Index           =   20
  381.          Left            =   660
  382.          TabIndex        =   71
  383.          Top             =   570
  384.          Width           =   1440
  385.       End
  386.       Begin Label lblINIMAGIC 
  387.          AutoSize        =   -1  'True
  388.          BackStyle       =   0  'Transparent
  389.          Caption         =   "(.ini) Section:"
  390.          FontBold        =   0   'False
  391.          FontItalic      =   0   'False
  392.          FontName        =   "MS Sans Serif"
  393.          FontSize        =   8.25
  394.          FontStrikethru  =   0   'False
  395.          FontUnderline   =   0   'False
  396.          Height          =   195
  397.          Index           =   19
  398.          Left            =   660
  399.          TabIndex        =   70
  400.          Top             =   900
  401.          Width           =   1440
  402.       End
  403.       Begin Label lblINIMAGIC 
  404.          AutoSize        =   -1  'True
  405.          BackStyle       =   0  'Transparent
  406.          Caption         =   "(.ini) Key:"
  407.          FontBold        =   0   'False
  408.          FontItalic      =   0   'False
  409.          FontName        =   "MS Sans Serif"
  410.          FontSize        =   8.25
  411.          FontStrikethru  =   0   'False
  412.          FontUnderline   =   0   'False
  413.          Height          =   195
  414.          Index           =   18
  415.          Left            =   660
  416.          TabIndex        =   69
  417.          Top             =   1230
  418.          Width           =   1440
  419.       End
  420.       Begin Label lblINIMAGIC 
  421.          AutoSize        =   -1  'True
  422.          BackStyle       =   0  'Transparent
  423.          Caption         =   "(.ini) String:"
  424.          FontBold        =   0   'False
  425.          FontItalic      =   0   'False
  426.          FontName        =   "MS Sans Serif"
  427.          FontSize        =   8.25
  428.          FontStrikethru  =   0   'False
  429.          FontUnderline   =   0   'False
  430.          Height          =   195
  431.          Index           =   17
  432.          Left            =   660
  433.          TabIndex        =   68
  434.          Top             =   1590
  435.          Width           =   1440
  436.       End
  437.       Begin Label lblINIMAGIC 
  438.          AutoSize        =   -1  'True
  439.          BackStyle       =   0  'Transparent
  440.          Caption         =   "(.ini) AccessMode:"
  441.          FontBold        =   0   'False
  442.          FontItalic      =   0   'False
  443.          FontName        =   "MS Sans Serif"
  444.          FontSize        =   8.25
  445.          FontStrikethru  =   0   'False
  446.          FontUnderline   =   0   'False
  447.          Height          =   195
  448.          Index           =   16
  449.          Left            =   660
  450.          TabIndex        =   67
  451.          Top             =   1890
  452.          Width           =   1305
  453.       End
  454.       Begin Label lblINIMAGIC 
  455.          AutoSize        =   -1  'True
  456.          BackStyle       =   0  'Transparent
  457.          Caption         =   "Returned String:"
  458.          FontBold        =   0   'False
  459.          FontItalic      =   0   'False
  460.          FontName        =   "MS Sans Serif"
  461.          FontSize        =   8.25
  462.          FontStrikethru  =   0   'False
  463.          FontUnderline   =   0   'False
  464.          Height          =   195
  465.          Index           =   14
  466.          Left            =   690
  467.          TabIndex        =   65
  468.          Top             =   2580
  469.          Width           =   1155
  470.       End
  471.       Begin Label lblINIMAGIC 
  472.          AutoSize        =   -1  'True
  473.          BackStyle       =   0  'Transparent
  474.          Caption         =   "Take care of (.ini) creation and writing the above information."
  475.          FontBold        =   0   'False
  476.          FontItalic      =   0   'False
  477.          FontName        =   "MS Sans Serif"
  478.          FontSize        =   8.25
  479.          FontStrikethru  =   0   'False
  480.          FontUnderline   =   0   'False
  481.          Height          =   195
  482.          Index           =   13
  483.          Left            =   690
  484.          TabIndex        =   64
  485.          Top             =   2250
  486.          Width           =   4290
  487.       End
  488.    End
  489.    Begin BBSIniMagic INIMAGIC1 
  490.       AccessMode      =   2  'Both
  491.       Encryption      =   -1  'True
  492.       EncryptionKey   =   ""
  493.       INIFileName     =   ""
  494.       INIKey          =   ""
  495.       INISection      =   ""
  496.       INIString       =   ""
  497.       Left            =   270
  498.       Top             =   210
  499.    End
  500.    Begin SSFrame fra3dINIMAGIC 
  501.       Caption         =   "LIC File Support"
  502.       Font3D          =   0  'None
  503.       FontBold        =   0   'False
  504.       FontItalic      =   0   'False
  505.       FontName        =   "MS Sans Serif"
  506.       FontSize        =   8.25
  507.       FontStrikethru  =   0   'False
  508.       FontUnderline   =   0   'False
  509.       ForeColor       =   &H00000000&
  510.       Height          =   3645
  511.       Index           =   1
  512.       Left            =   6090
  513.       TabIndex        =   25
  514.       Top             =   60
  515.       Visible         =   0   'False
  516.       Width           =   5595
  517.       Begin SSPanel pnl3dINIMAGIC 
  518.          AutoSize        =   3  'AutoSize Child To Panel
  519.          BackColor       =   &H00C0C0C0&
  520.          BevelOuter      =   1  'Inset
  521.          BevelWidth      =   2
  522.          Font3D          =   0  'None
  523.          Height          =   1995
  524.          Index           =   0
  525.          Left            =   270
  526.          TabIndex        =   27
  527.          Top             =   1170
  528.          Width           =   5025
  529.          Begin TextBox txtLICInfo 
  530.             BorderStyle     =   0  'None
  531.             FontBold        =   0   'False
  532.             FontItalic      =   0   'False
  533.             FontName        =   "MS Sans Serif"
  534.             FontSize        =   8.25
  535.             FontStrikethru  =   0   'False
  536.             FontUnderline   =   0   'False
  537.             Height          =   1935
  538.             Left            =   30
  539.             MultiLine       =   -1  'True
  540.             TabIndex        =   5
  541.             Top             =   30
  542.             Width           =   4965
  543.          End
  544.       End
  545.       Begin CommandButton cmdLICDone 
  546.          Caption         =   "&Done"
  547.          FontBold        =   0   'False
  548.          FontItalic      =   0   'False
  549.          FontName        =   "MS Sans Serif"
  550.          FontSize        =   8.25
  551.          FontStrikethru  =   0   'False
  552.          FontUnderline   =   0   'False
  553.          Height          =   315
  554.          Left            =   4500
  555.          TabIndex        =   6
  556.          Top             =   3240
  557.          Width           =   825
  558.       End
  559.       Begin Label lblINIMAGIC 
  560.          BackStyle       =   0  'Transparent
  561.          Caption         =   "In order to use the INIMAGIC.VBX Version 2.2 within the development environment it must be registered. The only means of learning baout the control is through this DEMO and the INIMAGIC.HLP file. Below is an what the INIMAGIC.LIC file contains:"
  562.          FontBold        =   0   'False
  563.          FontItalic      =   0   'False
  564.          FontName        =   "MS Sans Serif"
  565.          FontSize        =   8.25
  566.          FontStrikethru  =   0   'False
  567.          FontUnderline   =   0   'False
  568.          Height          =   855
  569.          Index           =   3
  570.          Left            =   300
  571.          TabIndex        =   26
  572.          Top             =   300
  573.          Width           =   5085
  574.       End
  575.    End
  576.    Begin SSFrame fra3dINIMAGIC 
  577.       Caption         =   "Encryption and Key"
  578.       Font3D          =   0  'None
  579.       FontBold        =   0   'False
  580.       FontItalic      =   0   'False
  581.       FontName        =   "MS Sans Serif"
  582.       FontSize        =   8.25
  583.       FontStrikethru  =   0   'False
  584.       FontUnderline   =   0   'False
  585.       ForeColor       =   &H00000000&
  586.       Height          =   3645
  587.       Index           =   2
  588.       Left            =   6060
  589.       TabIndex        =   29
  590.       Top             =   3840
  591.       Visible         =   0   'False
  592.       Width           =   5595
  593.       Begin SSOption opt3dEncrypt 
  594.          Caption         =   "&True"
  595.          Font3D          =   0  'None
  596.          FontBold        =   0   'False
  597.          FontItalic      =   0   'False
  598.          FontName        =   "MS Sans Serif"
  599.          FontSize        =   8.25
  600.          FontStrikethru  =   0   'False
  601.          FontUnderline   =   0   'False
  602.          Height          =   195
  603.          Index           =   0
  604.          Left            =   2190
  605.          TabIndex        =   77
  606.          TabStop         =   0   'False
  607.          Top             =   1890
  608.          Width           =   885
  609.       End
  610.       Begin SSOption opt3dEncrypt 
  611.          Caption         =   "&False"
  612.          Font3D          =   0  'None
  613.          FontBold        =   0   'False
  614.          FontItalic      =   0   'False
  615.          FontName        =   "MS Sans Serif"
  616.          FontSize        =   8.25
  617.          FontStrikethru  =   0   'False
  618.          FontUnderline   =   0   'False
  619.          Height          =   195
  620.          Index           =   1
  621.          Left            =   3120
  622.          TabIndex        =   76
  623.          TabStop         =   0   'False
  624.          Top             =   1890
  625.          Width           =   885
  626.       End
  627.       Begin CommandButton cmdSteps 
  628.          Caption         =   "&8"
  629.          FontBold        =   0   'False
  630.          FontItalic      =   0   'False
  631.          FontName        =   "MS Sans Serif"
  632.          FontSize        =   8.25
  633.          FontStrikethru  =   0   'False
  634.          FontUnderline   =   0   'False
  635.          Height          =   345
  636.          Index           =   7
  637.          Left            =   270
  638.          TabIndex        =   43
  639.          Top             =   2820
  640.          Width           =   315
  641.       End
  642.       Begin SSPanel pnl3dINIMAGIC 
  643.          AutoSize        =   3  'AutoSize Child To Panel
  644.          BackColor       =   &H00C0C0C0&
  645.          BevelOuter      =   1  'Inset
  646.          BevelWidth      =   2
  647.          Caption         =   "Panel3D1"
  648.          Font3D          =   0  'None
  649.          Height          =   255
  650.          Index           =   6
  651.          Left            =   2160
  652.          TabIndex        =   21
  653.          Top             =   2850
  654.          Width           =   3015
  655.          Begin TextBox txtINIMAGIC 
  656.             BorderStyle     =   0  'None
  657.             FontBold        =   0   'False
  658.             FontItalic      =   0   'False
  659.             FontName        =   "MS Sans Serif"
  660.             FontSize        =   8.25
  661.             FontStrikethru  =   0   'False
  662.             FontUnderline   =   0   'False
  663.             Height          =   195
  664.             Index           =   5
  665.             Left            =   30
  666.             TabIndex        =   19
  667.             Top             =   30
  668.             Width           =   2955
  669.          End
  670.       End
  671.       Begin SSPanel pnl3dINIMAGIC 
  672.          AutoSize        =   3  'AutoSize Child To Panel
  673.          BackColor       =   &H00C0C0C0&
  674.          BevelOuter      =   1  'Inset
  675.          BevelWidth      =   2
  676.          Caption         =   "Panel3D1"
  677.          Font3D          =   0  'None
  678.          Height          =   255
  679.          Index           =   5
  680.          Left            =   2160
  681.          TabIndex        =   34
  682.          Top             =   2190
  683.          Width           =   3015
  684.          Begin TextBox txtINIMAGIC 
  685.             BorderStyle     =   0  'None
  686.             Enabled         =   0   'False
  687.             FontBold        =   0   'False
  688.             FontItalic      =   0   'False
  689.             FontName        =   "MS Sans Serif"
  690.             FontSize        =   8.25
  691.             FontStrikethru  =   0   'False
  692.             FontUnderline   =   0   'False
  693.             Height          =   195
  694.             Index           =   4
  695.             Left            =   30
  696.             TabIndex        =   17
  697.             Top             =   30
  698.             Width           =   2955
  699.          End
  700.       End
  701.       Begin SSPanel pnl3dINIMAGIC 
  702.          AutoSize        =   3  'AutoSize Child To Panel
  703.          BackColor       =   &H00C0C0C0&
  704.          BevelOuter      =   1  'Inset
  705.          BevelWidth      =   2
  706.          Caption         =   "Panel3D1"
  707.          Font3D          =   0  'None
  708.          Height          =   255
  709.          Index           =   4
  710.          Left            =   2190
  711.          TabIndex        =   33
  712.          Top             =   1530
  713.          Width           =   2985
  714.          Begin TextBox txtINIMAGIC 
  715.             BorderStyle     =   0  'None
  716.             FontBold        =   0   'False
  717.             FontItalic      =   0   'False
  718.             FontName        =   "MS Sans Serif"
  719.             FontSize        =   8.25
  720.             FontStrikethru  =   0   'False
  721.             FontUnderline   =   0   'False
  722.             Height          =   195
  723.             Index           =   3
  724.             Left            =   30
  725.             TabIndex        =   14
  726.             Top             =   30
  727.             Width           =   2925
  728.          End
  729.       End
  730.       Begin SSPanel pnl3dINIMAGIC 
  731.          AutoSize        =   3  'AutoSize Child To Panel
  732.          BackColor       =   &H00C0C0C0&
  733.          BevelOuter      =   1  'Inset
  734.          BevelWidth      =   2
  735.          Caption         =   "Panel3D1"
  736.          Font3D          =   0  'None
  737.          Height          =   255
  738.          Index           =   3
  739.          Left            =   2190
  740.          TabIndex        =   32
  741.          Top             =   1200
  742.          Width           =   2985
  743.          Begin TextBox txtINIMAGIC 
  744.             BorderStyle     =   0  'None
  745.             FontBold        =   0   'False
  746.             FontItalic      =   0   'False
  747.             FontName        =   "MS Sans Serif"
  748.             FontSize        =   8.25
  749.             FontStrikethru  =   0   'False
  750.             FontUnderline   =   0   'False
  751.             Height          =   195
  752.             Index           =   2
  753.             Left            =   30
  754.             TabIndex        =   12
  755.             Top             =   30
  756.             Width           =   2925
  757.          End
  758.       End
  759.       Begin SSPanel pnl3dINIMAGIC 
  760.          AutoSize        =   3  'AutoSize Child To Panel
  761.          BackColor       =   &H00C0C0C0&
  762.          BevelOuter      =   1  'Inset
  763.          BevelWidth      =   2
  764.          Caption         =   "Panel3D1"
  765.          Font3D          =   0  'None
  766.          Height          =   255
  767.          Index           =   2
  768.          Left            =   2190
  769.          TabIndex        =   31
  770.          Top             =   870
  771.          Width           =   2985
  772.          Begin TextBox txtINIMAGIC 
  773.             BorderStyle     =   0  'None
  774.             FontBold        =   0   'False
  775.             FontItalic      =   0   'False
  776.             FontName        =   "MS Sans Serif"
  777.             FontSize        =   8.25
  778.             FontStrikethru  =   0   'False
  779.             FontUnderline   =   0   'False
  780.             Height          =   195
  781.             Index           =   1
  782.             Left            =   30
  783.             TabIndex        =   10
  784.             Top             =   30
  785.             Width           =   2925
  786.          End
  787.       End
  788.       Begin SSPanel pnl3dINIMAGIC 
  789.          AutoSize        =   3  'AutoSize Child To Panel
  790.          BackColor       =   &H00C0C0C0&
  791.          BevelOuter      =   1  'Inset
  792.          BevelWidth      =   2
  793.          Caption         =   "Panel3D1"
  794.          Font3D          =   0  'None
  795.          Height          =   255
  796.          Index           =   1
  797.          Left            =   2190
  798.          TabIndex        =   30
  799.          Top             =   540
  800.          Width           =   2985
  801.          Begin TextBox txtINIMAGIC 
  802.             BorderStyle     =   0  'None
  803.             FontBold        =   0   'False
  804.             FontItalic      =   0   'False
  805.             FontName        =   "MS Sans Serif"
  806.             FontSize        =   8.25
  807.             FontStrikethru  =   0   'False
  808.             FontUnderline   =   0   'False
  809.             Height          =   195
  810.             Index           =   0
  811.             Left            =   30
  812.             TabIndex        =   8
  813.             Top             =   30
  814.             Width           =   2925
  815.          End
  816.       End
  817.       Begin CommandButton cmdSteps 
  818.          Caption         =   "&7"
  819.          FontBold        =   0   'False
  820.          FontItalic      =   0   'False
  821.          FontName        =   "MS Sans Serif"
  822.          FontSize        =   8.25
  823.          FontStrikethru  =   0   'False
  824.          FontUnderline   =   0   'False
  825.          Height          =   345
  826.          Index           =   6
  827.          Left            =   270
  828.          TabIndex        =   18
  829.          Top             =   2490
  830.          Width           =   315
  831.       End
  832.       Begin CommandButton cmdSteps 
  833.          Caption         =   "&6"
  834.          FontBold        =   0   'False
  835.          FontItalic      =   0   'False
  836.          FontName        =   "MS Sans Serif"
  837.          FontSize        =   8.25
  838.          FontStrikethru  =   0   'False
  839.          FontUnderline   =   0   'False
  840.          Height          =   345
  841.          Index           =   5
  842.          Left            =   270
  843.          TabIndex        =   16
  844.          Top             =   2160
  845.          Width           =   315
  846.       End
  847.       Begin CommandButton cmdSteps 
  848.          Caption         =   "&5"
  849.          FontBold        =   0   'False
  850.          FontItalic      =   0   'False
  851.          FontName        =   "MS Sans Serif"
  852.          FontSize        =   8.25
  853.          FontStrikethru  =   0   'False
  854.          FontUnderline   =   0   'False
  855.          Height          =   345
  856.          Index           =   4
  857.          Left            =   270
  858.          TabIndex        =   15
  859.          Top             =   1830
  860.          Width           =   315
  861.       End
  862.       Begin CommandButton cmdSteps 
  863.          Caption         =   "&4"
  864.          FontBold        =   0   'False
  865.          FontItalic      =   0   'False
  866.          FontName        =   "MS Sans Serif"
  867.          FontSize        =   8.25
  868.          FontStrikethru  =   0   'False
  869.          FontUnderline   =   0   'False
  870.          Height          =   345
  871.          Index           =   3
  872.          Left            =   270
  873.          TabIndex        =   13
  874.          Top             =   1500
  875.          Width           =   315
  876.       End
  877.       Begin CommandButton cmdSteps 
  878.          Caption         =   "&3"
  879.          FontBold        =   0   'False
  880.          FontItalic      =   0   'False
  881.          FontName        =   "MS Sans Serif"
  882.          FontSize        =   8.25
  883.          FontStrikethru  =   0   'False
  884.          FontUnderline   =   0   'False
  885.          Height          =   345
  886.          Index           =   2
  887.          Left            =   270
  888.          TabIndex        =   11
  889.          Top             =   1170
  890.          Width           =   315
  891.       End
  892.       Begin CommandButton cmdSteps 
  893.          Caption         =   "&2"
  894.          FontBold        =   0   'False
  895.          FontItalic      =   0   'False
  896.          FontName        =   "MS Sans Serif"
  897.          FontSize        =   8.25
  898.          FontStrikethru  =   0   'False
  899.          FontUnderline   =   0   'False
  900.          Height          =   345
  901.          Index           =   1
  902.          Left            =   270
  903.          TabIndex        =   9
  904.          Top             =   840
  905.          Width           =   315
  906.       End
  907.       Begin CommandButton cmdSteps 
  908.          Caption         =   "&1"
  909.          FontBold        =   0   'False
  910.          FontItalic      =   0   'False
  911.          FontName        =   "MS Sans Serif"
  912.          FontSize        =   8.25
  913.          FontStrikethru  =   0   'False
  914.          FontUnderline   =   0   'False
  915.          Height          =   345
  916.          Index           =   0
  917.          Left            =   270
  918.          TabIndex        =   7
  919.          Top             =   510
  920.          Width           =   315
  921.       End
  922.       Begin CommandButton cmdEncryptDone 
  923.          Caption         =   "&Done"
  924.          FontBold        =   0   'False
  925.          FontItalic      =   0   'False
  926.          FontName        =   "MS Sans Serif"
  927.          FontSize        =   8.25
  928.          FontStrikethru  =   0   'False
  929.          FontUnderline   =   0   'False
  930.          Height          =   315
  931.          Left            =   4620
  932.          TabIndex        =   20
  933.          Top             =   3210
  934.          Width           =   825
  935.       End
  936.       Begin Label lblINIMAGIC 
  937.          AutoSize        =   -1  'True
  938.          BackStyle       =   0  'Transparent
  939.          Caption         =   "Take care of (.ini) creation and writing the above information."
  940.          FontBold        =   0   'False
  941.          FontItalic      =   0   'False
  942.          FontName        =   "MS Sans Serif"
  943.          FontSize        =   8.25
  944.          FontStrikethru  =   0   'False
  945.          FontUnderline   =   0   'False
  946.          Height          =   195
  947.          Index           =   11
  948.          Left            =   690
  949.          TabIndex        =   44
  950.          Top             =   2580
  951.          Width           =   4290
  952.       End
  953.       Begin Label lblINIMAGIC 
  954.          AutoSize        =   -1  'True
  955.          BackStyle       =   0  'Transparent
  956.          Caption         =   "Decrypted String:"
  957.          FontBold        =   0   'False
  958.          FontItalic      =   0   'False
  959.          FontName        =   "MS Sans Serif"
  960.          FontSize        =   8.25
  961.          FontStrikethru  =   0   'False
  962.          FontUnderline   =   0   'False
  963.          Height          =   195
  964.          Index           =   12
  965.          Left            =   690
  966.          TabIndex        =   42
  967.          Top             =   2910
  968.          Width           =   1230
  969.       End
  970.       Begin Label lblINIMAGIC 
  971.          AutoSize        =   -1  'True
  972.          BackStyle       =   0  'Transparent
  973.          Caption         =   "(.ini) Encryption Key:"
  974.          FontBold        =   0   'False
  975.          FontItalic      =   0   'False
  976.          FontName        =   "MS Sans Serif"
  977.          FontSize        =   8.25
  978.          FontStrikethru  =   0   'False
  979.          FontUnderline   =   0   'False
  980.          Height          =   195
  981.          Index           =   10
  982.          Left            =   660
  983.          TabIndex        =   41
  984.          Top             =   2250
  985.          Width           =   1440
  986.       End
  987.       Begin Label lblINIMAGIC 
  988.          AutoSize        =   -1  'True
  989.          BackStyle       =   0  'Transparent
  990.          Caption         =   "(.ini) Encryption:"
  991.          FontBold        =   0   'False
  992.          FontItalic      =   0   'False
  993.          FontName        =   "MS Sans Serif"
  994.          FontSize        =   8.25
  995.          FontStrikethru  =   0   'False
  996.          FontUnderline   =   0   'False
  997.          Height          =   195
  998.          Index           =   9
  999.          Left            =   660
  1000.          TabIndex        =   40
  1001.          Top             =   1920
  1002.          Width           =   1440
  1003.       End
  1004.       Begin Label lblINIMAGIC 
  1005.          AutoSize        =   -1  'True
  1006.          BackStyle       =   0  'Transparent
  1007.          Caption         =   "(.ini) String:"
  1008.          FontBold        =   0   'False
  1009.          FontItalic      =   0   'False
  1010.          FontName        =   "MS Sans Serif"
  1011.          FontSize        =   8.25
  1012.          FontStrikethru  =   0   'False
  1013.          FontUnderline   =   0   'False
  1014.          Height          =   195
  1015.          Index           =   8
  1016.          Left            =   660
  1017.          TabIndex        =   39
  1018.          Top             =   1590
  1019.          Width           =   1440
  1020.       End
  1021.       Begin Label lblINIMAGIC 
  1022.          AutoSize        =   -1  'True
  1023.          BackStyle       =   0  'Transparent
  1024.          Caption         =   "(.ini) Key:"
  1025.          FontBold        =   0   'False
  1026.          FontItalic      =   0   'False
  1027.          FontName        =   "MS Sans Serif"
  1028.          FontSize        =   8.25
  1029.          FontStrikethru  =   0   'False
  1030.          FontUnderline   =   0   'False
  1031.          Height          =   195
  1032.          Index           =   7
  1033.          Left            =   660
  1034.          TabIndex        =   38
  1035.          Top             =   1230
  1036.          Width           =   1440
  1037.       End
  1038.       Begin Label lblINIMAGIC 
  1039.          AutoSize        =   -1  'True
  1040.          BackStyle       =   0  'Transparent
  1041.          Caption         =   "(.ini) Section:"
  1042.          FontBold        =   0   'False
  1043.          FontItalic      =   0   'False
  1044.          FontName        =   "MS Sans Serif"
  1045.          FontSize        =   8.25
  1046.          FontStrikethru  =   0   'False
  1047.          FontUnderline   =   0   'False
  1048.          Height          =   195
  1049.          Index           =   6
  1050.          Left            =   660
  1051.          TabIndex        =   37
  1052.          Top             =   900
  1053.          Width           =   1440
  1054.       End
  1055.       Begin Label lblINIMAGIC 
  1056.          AutoSize        =   -1  'True
  1057.          BackStyle       =   0  'Transparent
  1058.          Caption         =   "(.ini) File Name:"
  1059.          FontBold        =   0   'False
  1060.          FontItalic      =   0   'False
  1061.          FontName        =   "MS Sans Serif"
  1062.          FontSize        =   8.25
  1063.          FontStrikethru  =   0   'False
  1064.          FontUnderline   =   0   'False
  1065.          Height          =   195
  1066.          Index           =   5
  1067.          Left            =   660
  1068.          TabIndex        =   36
  1069.          Top             =   570
  1070.          Width           =   1440
  1071.       End
  1072.       Begin Label lblINIMAGIC 
  1073.          AutoSize        =   -1  'True
  1074.          BackStyle       =   0  'Transparent
  1075.          Caption         =   "Steps:"
  1076.          FontBold        =   0   'False
  1077.          FontItalic      =   0   'False
  1078.          FontName        =   "MS Sans Serif"
  1079.          FontSize        =   8.25
  1080.          FontStrikethru  =   0   'False
  1081.          FontUnderline   =   0   'False
  1082.          Height          =   195
  1083.          Index           =   4
  1084.          Left            =   180
  1085.          TabIndex        =   35
  1086.          Top             =   270
  1087.          Width           =   450
  1088.       End
  1089.    End
  1090.    Begin CommonDialog dlgINIMAGIC 
  1091.       Left            =   720
  1092.       Top             =   180
  1093.    End
  1094.    Begin SSFrame fra3dINIMAGIC 
  1095.       Font3D          =   0  'None
  1096.       ForeColor       =   &H00000000&
  1097.       Height          =   3405
  1098.       Index           =   0
  1099.       Left            =   1560
  1100.       TabIndex        =   28
  1101.       Top             =   3000
  1102.       Width           =   2805
  1103.       Begin CommandButton cmdExit 
  1104.          Caption         =   "E&xit"
  1105.          FontBold        =   0   'False
  1106.          FontItalic      =   0   'False
  1107.          FontName        =   "MS Sans Serif"
  1108.          FontSize        =   8.25
  1109.          FontStrikethru  =   0   'False
  1110.          FontUnderline   =   0   'False
  1111.          Height          =   315
  1112.          Left            =   510
  1113.          TabIndex        =   66
  1114.          Top             =   2940
  1115.          Width           =   1905
  1116.       End
  1117.       Begin CommandButton cmdHelp 
  1118.          Caption         =   "Full On-Line &Help"
  1119.          FontBold        =   0   'False
  1120.          FontItalic      =   0   'False
  1121.          FontName        =   "MS Sans Serif"
  1122.          FontSize        =   8.25
  1123.          FontStrikethru  =   0   'False
  1124.          FontUnderline   =   0   'False
  1125.          Height          =   315
  1126.          Left            =   480
  1127.          TabIndex        =   0
  1128.          Top             =   990
  1129.          Width           =   1905
  1130.       End
  1131.       Begin CommandButton cmdVersion 
  1132.          Caption         =   "&Version Information"
  1133.          FontBold        =   0   'False
  1134.          FontItalic      =   0   'False
  1135.          FontName        =   "MS Sans Serif"
  1136.          FontSize        =   8.25
  1137.          FontStrikethru  =   0   'False
  1138.          FontUnderline   =   0   'False
  1139.          Height          =   315
  1140.          Left            =   510
  1141.          TabIndex        =   1
  1142.          Top             =   1350
  1143.          Width           =   1905
  1144.       End
  1145.       Begin CommandButton cmdEncrypt 
  1146.          Caption         =   "&Encryption and Key"
  1147.          FontBold        =   0   'False
  1148.          FontItalic      =   0   'False
  1149.          FontName        =   "MS Sans Serif"
  1150.          FontSize        =   8.25
  1151.          FontStrikethru  =   0   'False
  1152.          FontUnderline   =   0   'False
  1153.          Height          =   315
  1154.          Left            =   510
  1155.          TabIndex        =   2
  1156.          Top             =   1710
  1157.          Width           =   1905
  1158.       End
  1159.       Begin CommandButton cmdLIC 
  1160.          Caption         =   "&LIC File Support"
  1161.          FontBold        =   0   'False
  1162.          FontItalic      =   0   'False
  1163.          FontName        =   "MS Sans Serif"
  1164.          FontSize        =   8.25
  1165.          FontStrikethru  =   0   'False
  1166.          FontUnderline   =   0   'False
  1167.          Height          =   315
  1168.          Left            =   510
  1169.          TabIndex        =   3
  1170.          Top             =   2070
  1171.          Width           =   1905
  1172.       End
  1173.       Begin CommandButton cmdMode 
  1174.          Caption         =   "&AccessModes"
  1175.          FontBold        =   0   'False
  1176.          FontItalic      =   0   'False
  1177.          FontName        =   "MS Sans Serif"
  1178.          FontSize        =   8.25
  1179.          FontStrikethru  =   0   'False
  1180.          FontUnderline   =   0   'False
  1181.          Height          =   315
  1182.          Left            =   510
  1183.          TabIndex        =   4
  1184.          Top             =   2430
  1185.          Width           =   1905
  1186.       End
  1187.       Begin Label lblINIMAGIC 
  1188.          AutoSize        =   -1  'True
  1189.          BackStyle       =   0  'Transparent
  1190.          Caption         =   "Open File Dialog Box for selecting (*.ini) files during design time."
  1191.          FontBold        =   0   'False
  1192.          FontItalic      =   0   'False
  1193.          FontName        =   "MS Sans Serif"
  1194.          FontSize        =   8.25
  1195.          FontStrikethru  =   0   'False
  1196.          FontUnderline   =   0   'False
  1197.          Height          =   585
  1198.          Index           =   2
  1199.          Left            =   510
  1200.          TabIndex        =   22
  1201.          Top             =   330
  1202.          Width           =   1935
  1203.          WordWrap        =   -1  'True
  1204.       End
  1205.       Begin Image imgCheck 
  1206.          Height          =   195
  1207.          Index           =   0
  1208.          Left            =   210
  1209.          Picture         =   INIMAGIC.FRX:0302
  1210.          Top             =   390
  1211.          Width           =   225
  1212.       End
  1213.       Begin Image imgCheck 
  1214.          Height          =   195
  1215.          Index           =   1
  1216.          Left            =   210
  1217.          Picture         =   INIMAGIC.FRX:045C
  1218.          Top             =   1020
  1219.          Width           =   225
  1220.       End
  1221.       Begin Image imgCheck 
  1222.          Height          =   195
  1223.          Index           =   2
  1224.          Left            =   210
  1225.          Picture         =   INIMAGIC.FRX:05B6
  1226.          Top             =   1380
  1227.          Width           =   225
  1228.       End
  1229.       Begin Image imgCheck 
  1230.          Height          =   195
  1231.          Index           =   3
  1232.          Left            =   210
  1233.          Picture         =   INIMAGIC.FRX:0710
  1234.          Top             =   1770
  1235.          Width           =   225
  1236.       End
  1237.       Begin Image imgCheck 
  1238.          Height          =   195
  1239.          Index           =   4
  1240.          Left            =   210
  1241.          Picture         =   INIMAGIC.FRX:086A
  1242.          Top             =   2100
  1243.          Width           =   225
  1244.       End
  1245.       Begin Image imgCheck 
  1246.          Height          =   195
  1247.          Index           =   5
  1248.          Left            =   210
  1249.          Picture         =   INIMAGIC.FRX:09C4
  1250.          Top             =   2490
  1251.          Width           =   225
  1252.       End
  1253.       Begin Label lblINIMAGIC 
  1254.          AutoSize        =   -1  'True
  1255.          BackColor       =   &H00C0C0C0&
  1256.          Caption         =   "Features"
  1257.          FontBold        =   0   'False
  1258.          FontItalic      =   0   'False
  1259.          FontName        =   "MS Sans Serif"
  1260.          FontSize        =   8.25
  1261.          FontStrikethru  =   0   'False
  1262.          FontUnderline   =   0   'False
  1263.          Height          =   195
  1264.          Index           =   1
  1265.          Left            =   1080
  1266.          TabIndex        =   24
  1267.          Top             =   -30
  1268.          Width           =   615
  1269.       End
  1270.    End
  1271.    Begin Label lblINIMAGIC 
  1272.       Alignment       =   2  'Center
  1273.       BackStyle       =   0  'Transparent
  1274.       Caption         =   "Thank you for taking the time to truy-out INIMAGIC.VBX. The *New* version is an upgrade to the previous 2.1 version, available in CompuServes MSBASIC Forum."
  1275.       FontBold        =   0   'False
  1276.       FontItalic      =   0   'False
  1277.       FontName        =   "MS Sans Serif"
  1278.       FontSize        =   8.25
  1279.       FontStrikethru  =   0   'False
  1280.       FontUnderline   =   0   'False
  1281.       Height          =   1185
  1282.       Index           =   0
  1283.       Left            =   1470
  1284.       TabIndex        =   23
  1285.       Top             =   1590
  1286.       Width           =   3015
  1287.       WordWrap        =   -1  'True
  1288.    End
  1289.    Begin Image imgINIMAGIC 
  1290.       Height          =   420
  1291.       Left            =   2700
  1292.       Picture         =   INIMAGIC.FRX:0B1E
  1293.       Top             =   990
  1294.       Width           =   420
  1295.    End
  1296.    Begin Image imgINIMAGICBanner 
  1297.       Height          =   2865
  1298.       Left            =   300
  1299.       Picture         =   INIMAGIC.FRX:0D58
  1300.       Top             =   60
  1301.       Width           =   5295
  1302.    End
  1303. End
  1304. Option Explicit
  1305.  
  1306. ' Module level variables.
  1307. Dim iResult     As Integer
  1308. Dim szLICInfo   As String
  1309. Dim szNewLine   As String
  1310.  
  1311. ' Windows 3.1 Constant Declarations.
  1312. Const HELP_FORCEFILE = &H9    ' Ensure correct Help file is displayed
  1313.  
  1314. ' Common Dialog.
  1315. Const DLG_FILE_OPEN = 1
  1316.  
  1317. ' File Open/Save Dialog Flags.
  1318. Const OFN_READONLY = &H1&
  1319. Const OFN_OVERWRITEPROMPT = &H2&
  1320. Const OFN_HIDEREADONLY = &H4&
  1321. Const OFN_NOCHANGEDIR = &H8&
  1322. Const OFN_SHOWHELP = &H10&
  1323. Const OFN_NOVALIDATE = &H100&
  1324. Const OFN_ALLOWMULTISELECT = &H200&
  1325. Const OFN_EXTENSIONDIFFERENT = &H400&
  1326. Const OFN_PATHMUSTEXIST = &H800&
  1327. Const OFN_FILEMUSTEXIST = &H1000&
  1328. Const OFN_CREATEPROMPT = &H2000&
  1329. Const OFN_SHAREAWARE = &H4000&
  1330. Const OFN_NOREADONLYRETURN = &H8000&
  1331.  
  1332. ' Windows 3.1 API Declarations.
  1333. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  1334.  
  1335. '*******************************************************************
  1336. ' Name:       CenterForm.
  1337. ' Purpose:    This procedure centers a child form over a parent form.
  1338. ' Arguments:  frmParent ->  Parent form to be centered inside of.
  1339. '             frmChild  ->  Child form which will be centered.
  1340. ' Returns:    N/A.
  1341. '*******************************************************************
  1342. Sub CenterForm (frmParent As Form, frmChild As Form)
  1343.  
  1344.   Dim iLeftChild   As Integer ' Position for the left.
  1345.   Dim iTopChild    As Integer ' Position for the top.
  1346.  
  1347.   ' Figure out were to place the windows left side.
  1348.   iLeftChild = frmParent.Left + ((frmParent.Width - frmChild.Width) / 2)
  1349.   If (iLeftChild + frmChild.Width > Screen.Width) Then
  1350.     iLeftChild = Screen.Width - frmChild.Width
  1351.   End If
  1352.  
  1353.   ' Figure out were to place the windows top.
  1354.   iTopChild = frmParent.Top + ((frmParent.Height - frmChild.Height) / 2)
  1355.   If (iTopChild + frmChild.Height > Screen.Height) Then
  1356.     iTopChild = Screen.Height - frmChild.Height
  1357.   End If
  1358.  
  1359.   ' Move the child window to the assigned spot.
  1360.   frmChild.Move iLeftChild, iTopChild
  1361.  
  1362. End Sub
  1363.  
  1364. Sub cmdAMSteps_Click (Index As Integer)
  1365.  
  1366.   Select Case (Index + 1)
  1367.     Case 1: ' Step 1.
  1368.       MsgBox "Either enter another (.ini) file or simply use the demo (.ini) file, foo.ini, for demo purposes.", 32, App.Title & " Step 1"
  1369.  
  1370.     Case 2: ' Step 2.
  1371.       MsgBox "Enter a section from the (.ini) file, (eg. [foo]).", 32, App.Title & " Step 2"
  1372.     
  1373.     Case 3: ' Step 3.
  1374.       MsgBox "Enter a key from the (.ini) file, (eg. foo=).", 32, App.Title & " Step 3"
  1375.     
  1376.     Case 4: ' Step 4.
  1377.       MsgBox "Enter a key from the (.ini) file, (eg. foo=).", 32, App.Title & " Step 4"
  1378.     
  1379.     Case 5: ' Step 5.
  1380.       MsgBox "Choose what type of access to the (.ini) file you would like?", 32, App.Title & " Step 5"
  1381.    
  1382.     Case 6: ' Step 6.
  1383.       If Me!txtINIMAGIC(0) = "" Then MsgBox "Please go back and follow Step 1.", 48, App.Title & " DEMO Error": Me!txtINIMAGIC(0).SetFocus : Exit Sub
  1384.       If Me!txtINIMAGIC(1) = "" Then MsgBox "Please go back and follow Step 2.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(1).SetFocus : Exit Sub
  1385.       If Me!txtINIMAGIC(2) = "" Then MsgBox "Please go back and follow Step 3.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(2).SetFocus : Exit Sub
  1386.       If Me!txtINIMAGIC(3) = "" Then MsgBox "Please go back and follow Step 4.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(3).SetFocus : Exit Sub
  1387.       
  1388.       ' Setup the INIMAGIC Control.
  1389.       If Me!opt3dAM(0) = True Then
  1390.         Me!INIMAGIC1.AccessMode = 0 ' Read Mode.
  1391.       
  1392.       ElseIf Me!opt3dAM(1) = True Then
  1393.         Me!INIMAGIC1.AccessMode = 1 ' Write Mode.
  1394.       
  1395.       ElseIf Me!opt3dAM(2) = True Then
  1396.         Me!INIMAGIC1.AccessMode = 2 ' Both.
  1397.       
  1398.       End If
  1399.       
  1400.       ' Write the info out.
  1401.       Me!INIMAGIC1.INIFileName = Me!txtINIMAGIC(11)
  1402.       Me!INIMAGIC1.INISection = Me!txtINIMAGIC(10)
  1403.       Me!INIMAGIC1.INIKey = Me!txtINIMAGIC(9)
  1404.       Me!INIMAGIC1.INIString = Me.txtINIMAGIC(8)
  1405.  
  1406.     Case 7: ' Step 7.
  1407.       ' Get the string back.
  1408.       Me!INIMAGIC1.Refresh
  1409.       Me!txtINIMAGIC(6) = Me!INIMAGIC1.INIString
  1410.      
  1411.       MsgBox "VOILA!", 64, App.Title & " Step 7 (The End)"
  1412.     
  1413.   End Select
  1414.  
  1415. End Sub
  1416.  
  1417. Sub cmdDoneAM_Click ()
  1418.  
  1419.   ' Show the Features menu.
  1420.   Me!fra3dINIMAGIC(0).Visible = True   ' Turn-on the Features menu.
  1421.   Me!fra3dINIMAGIC(3).Visible = False  ' Turn-off the Encryption and Key.
  1422.  
  1423. End Sub
  1424.  
  1425. Sub cmdEncrypt_Click ()
  1426.  
  1427.   ' Show the Encryption and Key information.
  1428.   Me!fra3dINIMAGIC(0).Visible = False ' Turn-off the Features menu.
  1429.   Me!fra3dINIMAGIC(2).Visible = True  ' Turn-on the Encryption and Key.
  1430.  
  1431.   ' Set up the textboxes with the appropriate
  1432.   ' information.
  1433.   Me!txtINIMAGIC(0) = App.Path & "\foo.ini"   ' (.ini) filename.
  1434.   Me!txtINIMAGIC(1) = "Section 'foo'"         ' (.ini) section.
  1435.   Me!txtINIMAGIC(2) = "Key 'foo'"             ' (.ini) key.
  1436.   Me!txtINIMAGIC(3) = "Test foo"              ' (.ini) string.
  1437.   Me!txtINIMAGIC(4) = "dEmO TeSt"             ' (.ini) encryption key.
  1438.  
  1439. End Sub
  1440.  
  1441. Sub cmdEncryptDone_Click ()
  1442.  
  1443.   ' Show the Features menu.
  1444.   Me!fra3dINIMAGIC(0).Visible = True   ' Turn-on the Features menu.
  1445.   Me!fra3dINIMAGIC(2).Visible = False  ' Turn-off the Encryption and Key.
  1446.  
  1447. End Sub
  1448.  
  1449. Sub cmdExit_Click ()
  1450.   
  1451.   End
  1452.  
  1453. End Sub
  1454.  
  1455. Sub cmdHelp_Click ()
  1456.  
  1457.   ' Display the INIMAGIC.HLP file via the Windows WinHelp API.
  1458.   iResult = WinHelp(Me.hWnd, "INIMAGIC.HLP", HELP_FORCEFILE, "Contents")
  1459.  
  1460. End Sub
  1461.  
  1462. Sub cmdLIC_Click ()
  1463.   
  1464.   ' Set NewLine information.
  1465.   szNewLine = Chr(13) & Chr(10)
  1466.  
  1467.   ' Show the LIC File Support information.
  1468.   Me!fra3dINIMAGIC(0).Visible = False ' Turn-off the Features menu.
  1469.   Me!fra3dINIMAGIC(1).Visible = True  ' Turn-on the LCI Support.
  1470.   
  1471.   szLICInfo = "Copyright (c) 1994 Bits && Bytes Solutions INIMAGIC 2.2" & szNewLine & szNewLine
  1472.   szLICInfo = szLICInfo & "Development License Version 2.2" & szNewLine & szNewLine
  1473.   szLICInfo = szLICInfo & "Warning:  This product is licensed to you pursuant to the terms "
  1474.   szLICInfo = szLICInfo & "of the Bits && Bytes Solutions license agreement included with the "
  1475.   szLICInfo = szLICInfo & "original software, and is protected by copyright law and international "
  1476.   szLICInfo = szLICInfo & "treaties.  Unauthorized reproduction or distribution may result in "
  1477.   szLICInfo = szLICInfo & "severe civil and criminal penalties, and will be prosecuted to the "
  1478.   szLICInfo = szLICInfo & "maximum extent possible under the law."
  1479.  
  1480.   ' Put it all in the textbox.
  1481.   Me!txtLICInfo = szLICInfo
  1482.  
  1483. End Sub
  1484.  
  1485. Sub cmdLICDone_Click ()
  1486.  
  1487.   ' Show the Features menu.
  1488.   Me!fra3dINIMAGIC(1).Visible = False ' Turn-on the Features menu.
  1489.   Me!fra3dINIMAGIC(0).Visible = True  ' Turn-off the LCI Support.
  1490.  
  1491. End Sub
  1492.  
  1493. Sub cmdMode_Click ()
  1494.  
  1495.   ' Show the Encryption and Key information.
  1496.   Me!fra3dINIMAGIC(0).Visible = False ' Turn-off the Features menu.
  1497.   Me!fra3dINIMAGIC(3).Visible = True  ' Turn-on the Encryption and Key.
  1498.  
  1499.   ' Set up the textboxes with the appropriate
  1500.   ' information.
  1501.   Me!txtINIMAGIC(11) = App.Path & "\foo.ini"   ' (.ini) filename.
  1502.   Me!txtINIMAGIC(10) = "Section 'foo'"         ' (.ini) section.
  1503.   Me!txtINIMAGIC(9) = "Key 'foo'"             ' (.ini) key.
  1504.   Me!txtINIMAGIC(8) = "Test foo"              ' (.ini) string.
  1505.   
  1506. End Sub
  1507.  
  1508. Sub cmdSteps_Click (Index As Integer)
  1509.  
  1510.   Select Case (Index + 1)
  1511.     Case 1: ' Step 1.
  1512.       MsgBox "Either enter another (.ini) file or simply use the demo (.ini) file, foo.ini, for demo purposes.", 32, App.Title & " Step 1"
  1513.  
  1514.     Case 2: ' Step 2.
  1515.       MsgBox "Enter a section from the (.ini) file, (eg. [foo]).", 32, App.Title & " Step 2"
  1516.     
  1517.     Case 3: ' Step 3.
  1518.       MsgBox "Enter a key from the (.ini) file, (eg. foo=).", 32, App.Title & " Step 3"
  1519.     
  1520.     Case 4: ' Step 4.
  1521.       MsgBox "Enter a key from the (.ini) file, (eg. foo=).", 32, App.Title & " Step 4"
  1522.     
  1523.     Case 5: ' Step 5.
  1524.       MsgBox "Choose whether or not you would like to use encryption?", 32, App.Title & " Step 5"
  1525.       
  1526.     Case 6: ' Step 6.
  1527.       MsgBox "If you are using encryption then you may want to specify an encryption key.", 32, App.Title & " Step 5"
  1528.     
  1529.     Case 7: ' Step 7.
  1530.       If Me!txtINIMAGIC(0) = "" Then MsgBox "Please go back and follow Step 1.", 48, App.Title & " DEMO Error": Me!txtINIMAGIC(0).SetFocus : Exit Sub
  1531.       If Me!txtINIMAGIC(1) = "" Then MsgBox "Please go back and follow Step 2.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(1).SetFocus : Exit Sub
  1532.       If Me!txtINIMAGIC(2) = "" Then MsgBox "Please go back and follow Step 3.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(2).SetFocus : Exit Sub
  1533.       If Me!txtINIMAGIC(3) = "" Then MsgBox "Please go back and follow Step 4.", 48, App.Title & " DEMO Error": Me.txtINIMAGIC(3).SetFocus : Exit Sub
  1534.       If Me!opt3dEncrypt(0) = True Then
  1535.         If Me!txtINIMAGIC(4) = "" Then MsgBox "You left the encryption key blank so INIMAGIC will handle encryption by using its internal encryption this time.", 48, App.Title & " DEMO Tip": Exit Sub
  1536.       End If
  1537.     
  1538.       ' Setup the INIMAGIC Control.
  1539.       Me!INIMAGIC1.AccessMode = 2 ' Both Read/Write Mode.
  1540.       
  1541.       ' Write the info out.
  1542.       Me!INIMAGIC1.INIFileName = Me!txtINIMAGIC(0)
  1543.       Me!INIMAGIC1.INISection = Me!txtINIMAGIC(1)
  1544.       Me!INIMAGIC1.INIKey = Me!txtINIMAGIC(2)
  1545.       Me!INIMAGIC1.INIString = Me.txtINIMAGIC(3)
  1546.  
  1547.     Case 8: ' Step 8.
  1548.       ' Get the string back.
  1549.       Me!INIMAGIC1.Refresh
  1550.       Me!txtINIMAGIC(5) = Me!INIMAGIC1.INIString
  1551.      
  1552.       MsgBox "VOILA!", 64, App.Title & " Step 8 (The End)"
  1553.     
  1554.   End Select
  1555.  
  1556. End Sub
  1557.  
  1558. Sub cmdVersion_Click ()
  1559.  
  1560.   ' Display INIMAGIC.VBX version property information.
  1561.   MsgBox Space(12) & Me!INIMAGIC1.Version, 64, App.Title
  1562.  
  1563. End Sub
  1564.  
  1565. Sub Form_Load ()
  1566.  
  1567.   ' Set the application title.
  1568.   App.Title = "INIMAGIC Version 2.2"
  1569.  
  1570.   ' Setup all the frames.
  1571.   Me!fra3dINIMAGIC(1).Move 150, 2910  ' LIC File Support.
  1572.   Me!fra3dINIMAGIC(2).Move 150, 2910  ' Encryption and Key.
  1573.   Me!fra3dINIMAGIC(3).Move 150, 2910  ' Encryption and Key.
  1574.  
  1575.   ' Setup the form.
  1576.   Me.Width = 6030
  1577.   Me.Height = 7155
  1578.  
  1579. End Sub
  1580.  
  1581. Sub opt3dEncrypt_Click (Index As Integer, Value As Integer)
  1582.  
  1583.   ' Do we encrypt or not?
  1584.   If Me!opt3dEncrypt(0) = True Then
  1585.     Me!INIMAGIC1.Encryption = True
  1586.  
  1587.     ' Enabled the encryption key textbox.
  1588.     Me!txtINIMAGIC(4).Enabled = True
  1589.  
  1590.   Else
  1591.     Me!INIMAGIC1.Encryption = False
  1592.   
  1593.     ' Disable the encryption key textbox.
  1594.     Me!txtINIMAGIC(4).Enabled = False
  1595.   End If
  1596.  
  1597. End Sub
  1598.  
  1599. Sub txtINIMAGIC_DblClick (Index As Integer)
  1600.  
  1601.   ' Retrieve new (.ini) file.
  1602.   Me!dlgINIMAGIC.DefaultExt = "INI"
  1603.   Me!dlgINIMAGIC.CancelError = False
  1604.   Me!dlgINIMAGIC.Filename = "*.ini"
  1605.   Me!dlgINIMAGIC.DialogTitle = "Open INI File"
  1606.   Me!dlgINIMAGIC.Filter = "Initialization Files (*.ini)|*.ini"
  1607.   Me!dlgINIMAGIC.FilterIndex = 1
  1608.   Me!dlgINIMAGIC.Flags = OFN_PATHMUSTEXIST + OFN_HIDEREADONLY + OFN_FILEMUSTEXIST
  1609.   Me!dlgINIMAGIC.Action = DLG_FILE_OPEN
  1610.  
  1611.   Me!txtINIMAGIC(0) = Me!dlgINIMAGIC.Filename
  1612.  
  1613. End Sub
  1614.  
  1615.