E&l0S*r0F&l0O&l1H&l2a4d1e42F*t300R*b0M
*p37Y*p7X(0N(s3t0b0s12.00v10.00h0PABOUTFRM.FRM - 1*p87Y*p7X *p137Y*p7XVERSION 2.00*p187Y*p7XBegin Form AboutFrm *p237Y*p7X   Caption         =   "About ini Editor"*p287Y*p7X   ControlBox      =   0   'False*p337Y*p7X   Height          =   3492*p387Y*p7X   Left            =   2472*p437Y*p7X   LinkTopic       =   "Form3"*p487Y*p7X   MaxButton       =   0   'False*p537Y*p7X   MinButton       =   0   'False*p587Y*p7X   ScaleHeight     =   3024*p637Y*p7X   ScaleWidth      =   4128*p687Y*p7X   Top             =   1608*p737Y*p7X   Width           =   4272*p787Y*p7X   Begin CommandButton OKCmdBtn2 *p837Y*p7X      Caption         =   "OK"*p887Y*p7X      FontBold        =   0   'False*p937Y*p7X      FontItalic      =   0   'False*p987Y*p7X      FontName        =   "MS Sans Serif"*p1037Y*p7X      FontSize        =   7.8*p1087Y*p7X      FontStrikethru  =   0   'False*p1137Y*p7X      FontUnderline   =   0   'False*p1187Y*p7X      Height          =   372*p1237Y*p7X      Left            =   3240*p1287Y*p7X      TabIndex        =   7*p1337Y*p7X      Top             =   240*p1387Y*p7X      Width           =   732*p1437Y*p7X   End*p1487Y*p7X   Begin PictureBox Picture1 *p1537Y*p7X      BorderStyle     =   0  'None*p1587Y*p7X      Height          =   492*p1637Y*p7X      Left            =   240*p1687Y*p7X      Picture         =   (Icon)*p1737Y*p7X      ScaleHeight     =   492*p1787Y*p7X      ScaleWidth      =   492*p1837Y*p7X      TabIndex        =   2*p1887Y*p7X      Top             =   240*p1937Y*p7X      Width           =   492*p1987Y*p7X   End*p2037Y*p7X   Begin Label Label6 *p2087Y*p7X      Caption         =   "CompServe ID 76020.2060"*p2137Y*p7X      FontBold        =   0   'False*p2187Y*p7X      FontItalic      =   0   'False*p2237Y*p7X      FontName        =   "MS Sans Serif"*p2287Y*p7X      FontSize        =   7.8*p2337Y*p7X      FontStrikethru  =   0   'False*p2387Y*p7X      FontUnderline   =   0   'False*p2437Y*p7X      Height          =   252*p2487Y*p7X      Left            =   1080*p2537Y*p7X      TabIndex        =   6*p2587Y*p7X      Top             =   1080*p2637Y*p7X      Width           =   2052*p2687Y*p7X   End*p2737Y*p7X   Begin Label Label5 *p2787Y*p7X      FontBold        =   0   'False*p2837Y*p7X      FontItalic      =   0   'False*p2887Y*p7X      FontName        =   "MS Sans Serif"*p2937Y*p7X      FontSize        =   7.8*p2987Y*p7X      FontStrikethru  =   0   'False*p3037Y*p7X      FontUnderline   =   0   'False*p3087Y*p7X      Height          =   252*p3137Y*p7X      Left            =   1320*b0M
*p37Y*p7XABOUTFRM.FRM - 2*p87Y*p7X *p137Y*p7X      TabIndex        =   5*p187Y*p7X      Top             =   2400*p237Y*p7X      Width           =   1692*p287Y*p7X   End*p337Y*p7X   Begin Label Label4 *p387Y*p7X      FontBold        =   0   'False*p437Y*p7X      FontItalic      =   0   'False*p487Y*p7X      FontName        =   "MS Sans Serif"*p537Y*p7X      FontSize        =   7.8*p587Y*p7X      FontStrikethru  =   0   'False*p637Y*p7X      FontUnderline   =   0   'False*p687Y*p7X      Height          =   252*p737Y*p7X      Left            =   1320*p787Y*p7X      TabIndex        =   4*p837Y*p7X      Top             =   1920*p887Y*p7X      Width           =   1812*p937Y*p7X   End*p987Y*p7X   Begin Label Label3 *p1037Y*p7X      Caption         =   "Version 1.0"*p1087Y*p7X      FontBold        =   0   'False*p1137Y*p7X      FontItalic      =   0   'False*p1187Y*p7X      FontName        =   "MS Sans Serif"*p1237Y*p7X      FontSize        =   7.8*p1287Y*p7X      FontStrikethru  =   0   'False*p1337Y*p7X      FontUnderline   =   0   'False*p1387Y*p7X      Height          =   252*p1437Y*p7X      Left            =   1680*p1487Y*p7X      TabIndex        =   3*p1537Y*p7X      Top             =   1440*p1587Y*p7X      Width           =   852*p1637Y*p7X   End*p1687Y*p7X   Begin Label Label2 *p1737Y*p7X      Caption         =   "By Matthew J. Goedtel "*p1787Y*p7X      FontBold        =   0   'False*p1837Y*p7X      FontItalic      =   0   'False*p1887Y*p7X      FontName        =   "MS Sans Serif"*p1937Y*p7X      FontSize        =   7.8*p1987Y*p7X      FontStrikethru  =   0   'False*p2037Y*p7X      FontUnderline   =   0   'False*p2087Y*p7X      Height          =   252*p2137Y*p7X      Left            =   1200*p2187Y*p7X      TabIndex        =   1*p2237Y*p7X      Top             =   720*p2287Y*p7X      Width           =   1812*p2337Y*p7X   End*p2387Y*p7X   Begin Label Label1 *p2437Y*p7X      Caption         =   "Ini Editor for Windows"*p2487Y*p7X      FontBold        =   0   'False*p2537Y*p7X      FontItalic      =   0   'False*p2587Y*p7X      FontName        =   "MS Sans Serif"*p2637Y*p7X      FontSize        =   7.8*p2687Y*p7X      FontStrikethru  =   0   'False*p2737Y*p7X      FontUnderline   =   0   'False*p2787Y*p7X      Height          =   372*p2837Y*p7X      Left            =   1320*p2887Y*p7X      TabIndex        =   0*p2937Y*p7X      Top             =   240*p2987Y*p7X      Width           =   1692*p3037Y*p7X   End*p3087Y*p7XEnd*b0M
*p37Y*p7XABOUTFRM.FRM - 1*p87Y*p7X *p137Y*p7XDeclare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long*p187Y*p7XDeclare Function GetVersion Lib "Kernel" () As Integer*p287Y*p7XDim MajorVersion As Integer, MinorVersion As Integer*p387Y*p7XSub Form_Load ()*p437Y*p7X     Move (Screen.Width - AboutFrm.Width) / 2, (Screen.Height - AboutFrm.Height)*p487Y*p7X / 2*p537Y*p7X     Version% = GetVersion()*p587Y*p7X     MajorVersion = Version% And &HFF*p637Y*p7X     MinorVersion = (Version% And &HFF00) \ 256*p687Y*p7X     *p737Y*p7X     Static OldFreeSpace As Long, FreeSpace As Long*p837Y*p7X    FreeSpace = GetFreeSpace(0)*p887Y*p7X       *p937Y*p7X    Label4.Caption = "Free Memory:  " + Format$(FreeSpace \ 1024) + " KB"*p987Y*p7X    Label5.Caption = "Windows Version " + Format$(MajorVersion) + "." + Format$(*p1037Y*p7XMinorVersion)*p1087Y*p7X    *p1187Y*p7XEnd Sub*p1287Y*p7XSub OKCmdBtn2_Click ()*p1337Y*p7X    Unload AboutFrm*p1437Y*p7XEnd Sub*b0M
*p37Y*p7XINIMNFRM.FRM - 1*p87Y*p7X *p137Y*p7XVERSION 2.00*p187Y*p7XBegin Form Form1 *p237Y*p7X   AutoRedraw      =   -1  'True*p287Y*p7X   BackColor       =   &H00C0C0C0&*p337Y*p7X   BorderStyle     =   1  'Fixed Single*p387Y*p7X   Caption         =   "Ini Editor For Windows"*p437Y*p7X   ForeColor       =   &H00404040&*p487Y*p7X   Height          =   5820*p537Y*p7X   Icon            =   (Icon)*p587Y*p7X   Left            =   1320*p637Y*p7X   LinkTopic       =   "Form1"*p687Y*p7X   ScaleHeight     =   5028*p737Y*p7X   ScaleWidth      =   7044*p787Y*p7X   Top             =   1296*p837Y*p7X   Width           =   7188*p887Y*p7X   Begin TextBox FileTextBox *p937Y*p7X      BackColor       =   &H00C0C0C0&*p987Y*p7X      Height          =   3012*p1037Y*p7X      Left            =   480*p1087Y*p7X      MultiLine       =   -1  'True*p1137Y*p7X      ScrollBars      =   3  'Both*p1187Y*p7X      TabIndex        =   4*p1237Y*p7X      Top             =   1560*p1287Y*p7X      Width           =   6132*p1337Y*p7X   End*p1387Y*p7X   Begin CommandButton PrintCmdBtn *p1437Y*p7X      Caption         =   "Print"*p1487Y*p7X      Enabled         =   0   'False*p1537Y*p7X      FontBold        =   0   'False*p1587Y*p7X      FontItalic      =   0   'False*p1637Y*p7X      FontName        =   "MS Sans Serif"*p1687Y*p7X      FontSize        =   7.8*p1737Y*p7X      FontStrikethru  =   0   'False*p1787Y*p7X      FontUnderline   =   0   'False*p1837Y*p7X      Height          =   372*p1887Y*p7X      Left            =   4680*p1937Y*p7X      TabIndex        =   3*p1987Y*p7X      Top             =   240*p2037Y*p7X      Width           =   1212*p2087Y*p7X   End*p2137Y*p7X   Begin ComboBox Combo1 *p2187Y*p7X      BackColor       =   &H00C0C0C0&*p2237Y*p7X      FontBold        =   0   'False*p2287Y*p7X      FontItalic      =   0   'False*p2337Y*p7X      FontName        =   "MS Sans Serif"*p2387Y*p7X      FontSize        =   7.8*p2437Y*p7X      FontStrikethru  =   0   'False*p2487Y*p7X      FontUnderline   =   0   'False*p2537Y*p7X      Height          =   288*p2587Y*p7X      Left            =   240*p2637Y*p7X      TabIndex        =   1*p2687Y*p7X      Top             =   600*p2737Y*p7X      Width           =   3732*p2787Y*p7X   End*p2837Y*p7X   Begin CommandButton SrchForCmdBtn *p2887Y*p7X      Caption         =   "Search For"*p2937Y*p7X      Enabled         =   0   'False*p2987Y*p7X      FontBold        =   0   'False*p3037Y*p7X      FontItalic      =   0   'False*p3087Y*p7X      FontName        =   "MS Sans Serif"*p3137Y*p7X      FontSize        =   7.8*b0M
*p37Y*p7XINIMNFRM.FRM - 2*p87Y*p7X *p137Y*p7X      FontStrikethru  =   0   'False*p187Y*p7X      FontUnderline   =   0   'False*p237Y*p7X      Height          =   372*p287Y*p7X      Left            =   4680*p337Y*p7X      TabIndex        =   0*p387Y*p7X      Top             =   720*p437Y*p7X      Width           =   1212*p487Y*p7X   End*p537Y*p7X   Begin Line Line8 *p587Y*p7X      BorderColor     =   &H00808080&*p637Y*p7X      X1              =   6720*p687Y*p7X      X2              =   6720*p737Y*p7X      Y1              =   4680*p787Y*p7X      Y2              =   1440*p837Y*p7X   End*p887Y*p7X   Begin Line Line7 *p937Y*p7X      BorderColor     =   &H00808080&*p987Y*p7X      X1              =   360*p1037Y*p7X      X2              =   6720*p1087Y*p7X      Y1              =   4680*p1137Y*p7X      Y2              =   4680*p1187Y*p7X   End*p1237Y*p7X   Begin Line Line6 *p1287Y*p7X      BorderColor     =   &H00FFFFFF&*p1337Y*p7X      X1              =   360*p1387Y*p7X      X2              =   360*p1437Y*p7X      Y1              =   1440*p1487Y*p7X      Y2              =   4680*p1537Y*p7X   End*p1587Y*p7X   Begin Line Line5 *p1637Y*p7X      BorderColor     =   &H00FFFFFF&*p1687Y*p7X      X1              =   360*p1737Y*p7X      X2              =   6720*p1787Y*p7X      Y1              =   1440*p1837Y*p7X      Y2              =   1440*p1887Y*p7X   End*p1937Y*p7X   Begin Line Line4 *p1987Y*p7X      X1              =   6000*p2037Y*p7X      X2              =   6000*p2087Y*p7X      Y1              =   120*p2137Y*p7X      Y2              =   1200*p2187Y*p7X   End*p2237Y*p7X   Begin Line Line3 *p2287Y*p7X      BorderColor     =   &H00808080&*p2337Y*p7X      X1              =   4560*p2387Y*p7X      X2              =   6000*p2437Y*p7X      Y1              =   1200*p2487Y*p7X      Y2              =   1200*p2537Y*p7X   End*p2587Y*p7X   Begin Line Line2 *p2637Y*p7X      BorderColor     =   &H00FFFFFF&*p2687Y*p7X      X1              =   4560*p2737Y*p7X      X2              =   4560*p2787Y*p7X      Y1              =   120*p2837Y*p7X      Y2              =   1200*p2887Y*p7X   End*p2937Y*p7X   Begin Line Line1 *p2987Y*p7X      BorderColor     =   &H00FFFFFF&*p3037Y*p7X      X1              =   4560*p3087Y*p7X      X2              =   6000*p3137Y*p7X      Y1              =   120*b0M
*p37Y*p7XINIMNFRM.FRM - 3*p87Y*p7X *p137Y*p7X      Y2              =   120*p187Y*p7X   End*p237Y*p7X   Begin Label Label1 *p287Y*p7X      BackColor       =   &H00C0C0C0&*p337Y*p7X      Caption         =   "Sections:"*p387Y*p7X      FontBold        =   0   'False*p437Y*p7X      FontItalic      =   0   'False*p487Y*p7X      FontName        =   "MS Sans Serif"*p537Y*p7X      FontSize        =   7.8*p587Y*p7X      FontStrikethru  =   0   'False*p637Y*p7X      FontUnderline   =   0   'False*p687Y*p7X      Height          =   252*p737Y*p7X      Left            =   240*p787Y*p7X      TabIndex        =   2*p837Y*p7X      Top             =   360*p887Y*p7X      Width           =   1092*p937Y*p7X   End*p987Y*p7X   Begin Menu FileMnu *p1037Y*p7X      Caption         =   "&File"*p1087Y*p7X      Begin Menu OpenMnuItm *p1137Y*p7X         Caption         =   "&Open"*p1187Y*p7X      End*p1237Y*p7X      Begin Menu SaveMnuItm *p1287Y*p7X         Caption         =   "Sa&ve"*p1337Y*p7X      End*p1387Y*p7X      Begin Menu DashMnuItm *p1437Y*p7X         Caption         =   "-"*p1487Y*p7X      End*p1537Y*p7X      Begin Menu ExitMnuItm *p1587Y*p7X         Caption         =   "&Exit"*p1637Y*p7X      End*p1687Y*p7X   End*p1737Y*p7X   Begin Menu EditMnu *p1787Y*p7X      Caption         =   "&Edit"*p1837Y*p7X      Begin Menu CutMnuItm *p1887Y*p7X         Caption         =   "Cu&t"*p1937Y*p7X         Shortcut        =   ^X*p1987Y*p7X      End*p2037Y*p7X      Begin Menu CopyMnuItm *p2087Y*p7X         Caption         =   "&Copy"*p2137Y*p7X         Shortcut        =   ^C*p2187Y*p7X      End*p2237Y*p7X      Begin Menu PasteMnuItm *p2287Y*p7X         Caption         =   "&Paste"*p2337Y*p7X         Shortcut        =   ^V*p2387Y*p7X      End*p2437Y*p7X      Begin Menu DeleteMnuItm *p2487Y*p7X         Caption         =   "&Delete"*p2537Y*p7X         Shortcut        =   {DEL}*p2587Y*p7X      End*p2637Y*p7X   End*p2687Y*p7X   Begin Menu HelpMnu *p2737Y*p7X      Caption         =   "&Help"*p2787Y*p7X      Begin Menu AboutMnuItm *p2837Y*p7X         Caption         =   "&About"*p2887Y*p7X      End*p2937Y*p7X   End*p2987Y*p7XEnd*b0M
*p37Y*p7XINIMNFRM.FRM - 1*p87Y*p7X *p137Y*p7XDim StopIt As Integer*p287Y*p7XSub CopyCmdBtn_Click ()*p337Y*p7X    'Copy Selected Text to the Clipboard.*p387Y*p7X    ClipBoard.SetText Screen.ActiveControl.SelText*p437Y*p7XEnd Sub*p537Y*p7XSub CutCmdBtn_Click ()*p587Y*p7X     ' Copy Selected text to the Clipboard.*p637Y*p7X     ClipBoard.SetText Screen.ActiveControl.SelText*p687Y*p7X     ' Delete Selected text.*p737Y*p7X     Screen.ActiveControl.SelText = ""*p787Y*p7XEnd Sub*p887Y*p7XSub DeleteCmdBtn_Click ()*p937Y*p7X     ' Delete Selected Text*p987Y*p7X     Screen.ActiveControl.SelText = ""*p1037Y*p7XEnd Sub*p1137Y*p7XSub DrawFrameOn (TopLeftControl As Control, LowestRightControl As Control, Style*p1187Y*p7X As String, Framewidth)*p1237Y*p7X    dw = drawwidth*p1287Y*p7X    fs = fillstyle*p1337Y*p7X    sm = scalemode*p1437Y*p7X    drawwidth = 1*p1487Y*p7X    fillstyle = 1*p1537Y*p7X    scalemode = 1*p1637Y*p7X    st$ = LCase$(Left$(Style$, 1))*p1737Y*p7X    Lft = TopLeftControl.Left*p1787Y*p7X    Toplft = TopLeftControl.Top*p1837Y*p7X    Hite = TopLeftControl.Height*p1937Y*p7X    Rite = LowestRightControl.Left + LowestRightControl.Width*p1987Y*p7X    Ritebotm = LowestRightControl.Top + LowestRightControl.Height*p2087Y*p7X    'Use tallest Control as Y*p2137Y*p7X    If Ritebotm > Hite Then Hite = Ritebotm*p2237Y*p7X    'Draw a Thick Box*p2287Y*p7X    Line (Lft - Framewidth, Toplft - Framewidth)-(Rite + Framewidth, Ritebotm + *p2337Y*p7XFramewidth), QBColor(7), BF*p2437Y*p7X    'Draw Hightlight and Shadow Lines*p2487Y*p7X    *p2537Y*p7X    It = 15: rb = 8*p2587Y*p7X    If st$ = "i" Then It = 8: rb = 15*p2637Y*p7X    Line (Lft - Framewidth, Toplft - Framewidth)-(Rite + Framewidth, Toplft - Fr*p2687Y*p7Xamewidth), QBColor(It)*p2737Y*p7X    Line (Lft - Framewidth, Toplft - Framewidth)-(Lft - Framewidth, Hite + Frame*p2787Y*p7Xwidth), QBColor(It)*p2837Y*p7X    Line (Rite + Framewidth, Toplft - Framewidth)-(Rite + Framewidth, Ritebotm +*p2887Y*p7X Framewidth), QBColor(rb)*p2937Y*p7X    Line (Rite + Framewidth, Ritebotm + Framewidth)-(Lft - Framewidth, Hite + Fr*p2987Y*p7Xamewidth), QBColor(rb)*p3087Y*p7X    If st$ <> "i" Then*p3137Y*p7X        Line (Lft - Framewidth - 25, Toplft - Framewidth - 25)-(Rite + Framewidt*b0M
*p37Y*p7XINIMNFRM.FRM - 2*p87Y*p7X *p137Y*p7Xh + 10, Ritebotm + Framewidth + 10), QBColor(0), B*p187Y*p7X    End If*p237Y*p7X    drawwidth = dw*p287Y*p7X    fillsytle = fs*p337Y*p7X    scalemode = sm*p387Y*p7XEnd Sub*p487Y*p7XSub FileTextBox_Resize ()*p537Y*p7X    *p587Y*p7XEnd Sub*p687Y*p7XSub PsteCmdBtn_Click ()*p737Y*p7X    'Place text from the Clipboard into active control.*p787Y*p7X    Screen.ActiveControl.SelText = ClipBoard.GetText()*p887Y*p7XEnd Sub*p987Y*p7XSub AboutMnuItm_Click ()*p1037Y*p7X     Load AboutFrm*p1087Y*p7X     AboutFrm.Show 1*p1137Y*p7X     *p1187Y*p7XEnd Sub*p1287Y*p7XSub Combo1_Click ()*p1337Y*p7X     FileTextBox.SetFocus*p1387Y*p7X     SearchVar$ = Combo1.List(Combo1.ListIndex)*p1437Y*p7X     FileTextBox.SelStart = InStr(FileTextBox.Text, SearchVar$) - 1*p1487Y*p7X     SelLength = Len(SearchVar$)*p1537Y*p7X     *p1587Y*p7XEnd Sub*p1687Y*p7XSub CopyMnuItm_Click ()*p1737Y*p7X    ' Copy the selected text to the Clipboard.*p1787Y*p7X    ClipBoard.SetText Screen.ActiveControl.SelText*p1837Y*p7XEnd Sub*p1937Y*p7XSub CutMnuItm_Click ()*p1987Y*p7X    ' Copy selected text to the Clipboard.*p2037Y*p7X    ClipBoard.SetText Screen.ActiveControl.SelText*p2087Y*p7X    ' Delete the selected text.*p2137Y*p7X    Screen.ActiveControl.SelText = ""*p2187Y*p7XEnd Sub*p2287Y*p7XSub DeleteMnuItm_Click ()*p2337Y*p7X    ' Delete Selected text.*p2387Y*p7X    Screen.ActiveControl.SelText = ""*p2437Y*p7XEnd Sub*p2537Y*p7XSub ExitMnuItm_Click ()*p2587Y*p7X    End*p2637Y*p7XEnd Sub*p2737Y*p7XSub Form_Load ()*p2787Y*p7X    Show*p2837Y*p7X    DrawFrameOn Combo1, Combo1, "Inward", 150*p2887Y*p7X    DrawFrameOn FileTextBox, FileTextBox, "Outward", 200*p2987Y*p7XEnd Sub*p3087Y*p7XSub Form_Paint ()*p3137Y*p7X    Show*b0M
*p37Y*p7XINIMNFRM.FRM - 3*p87Y*p7X *p137Y*p7X    DrawFrameOn Combo1, Combo1, "Inward", 150*p187Y*p7X    DrawFrameOn FileTextBox, FileTextBox, "Outward", 200*p287Y*p7XEnd Sub*p387Y*p7XSub OpenMnuItm_Click ()*p437Y*p7X   Form2.Show 1*p487Y*p7XDim Buffer As String*p587Y*p7X1 TheFileName = Form2.Tag*p637Y*p7X    If TheFileName = "" Then Exit Sub*p687Y*p7X    Open TheFileName For Binary As #1*p737Y*p7X    FileLength = LOF(1)*p787Y*p7X    If FileLength > 40000 Then*p837Y*p7X        MsgBox "File Too Long To Edit", 16*p887Y*p7X        Exit Sub*p937Y*p7X    ElseIf FileLength = 0 Then*p987Y*p7X        MsgBox "File: " + TheFileName + " not found or empty", 16*p1037Y*p7X        Exit Sub*p1087Y*p7X    End If*p1137Y*p7X    Tmp$ = String$(LOF(1), 0)*p1187Y*p7X    Get #1, , Tmp$*p1237Y*p7X    FileTextBox.Text = Tmp$*p1287Y*p7X   Close #1*p1337Y*p7X    Tmp$ = ""*p1387Y*p7X    Combo1.Clear*p1437Y*p7XOpen TheFileName For Input As #1*p1487Y*p7X     While Not EOF(1)*p1537Y*p7X     Line Input #1, Buffer*p1587Y*p7X     If Left$(Buffer, 1) = "[" Then*p1637Y*p7X        Combo1.AddItem RTrim$(Buffer)*p1687Y*p7X     End If*p1737Y*p7X     Wend*p1787Y*p7X     Close #1*p1837Y*p7X     Buffer = ""*p1887Y*p7X     PrintCmdBtn.Enabled = True*p1937Y*p7X     SrchForCmdBtn.Enabled = True*p1987Y*p7XEnd Sub*p2087Y*p7XSub PasteMnuItm_Click ()*p2137Y*p7X     ' Place text from the Clipboard into active control.*p2187Y*p7X     Screen.ActiveControl.SelText = ClipBoard.GetText()*p2287Y*p7XEnd Sub*p2387Y*p7XSub PrintCmdBtn_Click ()*p2437Y*p7X     Printer.Print FileTextBox.Text*p2487Y*p7X     Printer.EndDoc*p2587Y*p7XEnd Sub*p2687Y*p7XSub SaveMnuItm_Click ()*p2737Y*p7X    FileTextBox.Tag = TheFileName*p2787Y*p7X    ' Print the TextBox to a file.*p2837Y*p7X    ' Append EOF Chr$(26), if not last character in TextBox*p2887Y*p7X    *p2937Y*p7XOpen TheFileName For Output As #1*p2987Y*p7XPrint #1, FileTextBox.Text;*p3037Y*p7XIf Right$(FileTextBox.Text, 1) <> Chr$(26) Then Print #1, Chr$(26);*p3087Y*p7XClose #1*b0M
*p37Y*p7XINIMNFRM.FRM - 4*p87Y*p7X *p137Y*p7XEnd Sub*p237Y*p7XSub SrchForCmdBtn_Click ()*p287Y*p7X     Dim Searchstring As String, Newsearchstring As String*p337Y*p7X     ' Default to previous search string.*p387Y*p7X     ' If match is found, Leave Matching text selected.*p437Y*p7X     Newsearchstring = InputBox$("Enter Text for Search", "", Searchstring)*p487Y*p7X     If Newsearchstring = "" Then Exit Sub   ' If NewSearchString is Blank, don'*p537Y*p7Xt search*p587Y*p7X     Searchstring = Newsearchstring*p637Y*p7X     T% = InStr(FileTextBox.SelStart + 1 + FileTextBox.SelLength, FileTextBox.Te*p687Y*p7Xxt, Searchstring)*p737Y*p7X     If T% Then*p787Y*p7X        FileTextBox.SetFocus       ' set focus to FileTextBox for Searching the *p837Y*p7Xtext*p887Y*p7X        FileTextBox.SelStart = T% - 1*p937Y*p7X        FileTextBox.SelLength = Len(Searchstring)*p987Y*p7X     End If*p1037Y*p7X     *p1087Y*p7X     *p1137Y*p7XEnd Sub*b0M
*p37Y*p7XINIOPEN.FRM - 1*p87Y*p7X *p137Y*p7XVERSION 2.00*p187Y*p7XBegin Form Form2 *p237Y*p7X   Caption         =   "Open"*p287Y*p7X   Height          =   4836*p337Y*p7X   Left            =   1872*p387Y*p7X   LinkTopic       =   "Form2"*p437Y*p7X   MaxButton       =   0   'False*p487Y*p7X   MinButton       =   0   'False*p537Y*p7X   ScaleHeight     =   4368*p587Y*p7X   ScaleWidth      =   7248*p637Y*p7X   Top             =   1344*p687Y*p7X   Width           =   7392*p737Y*p7X   Begin TextBox FileNameTxt *p787Y*p7X      FontBold        =   0   'False*p837Y*p7X      FontItalic      =   0   'False*p887Y*p7X      FontName        =   "MS Sans Serif"*p937Y*p7X      FontSize        =   7.8*p987Y*p7X      FontStrikethru  =   0   'False*p1037Y*p7X      FontUnderline   =   0   'False*p1087Y*p7X      Height          =   372*p1137Y*p7X      Left            =   360*p1187Y*p7X      TabIndex        =   8*p1237Y*p7X      Top             =   720*p1287Y*p7X      Width           =   2172*p1337Y*p7X   End*p1387Y*p7X   Begin CommandButton CancelCmdBtn *p1437Y*p7X      Caption         =   "Cancel"*p1487Y*p7X      FontBold        =   0   'False*p1537Y*p7X      FontItalic      =   0   'False*p1587Y*p7X      FontName        =   "MS Sans Serif"*p1637Y*p7X      FontSize        =   7.8*p1687Y*p7X      FontStrikethru  =   0   'False*p1737Y*p7X      FontUnderline   =   0   'False*p1787Y*p7X      Height          =   372*p1837Y*p7X      Left            =   5760*p1887Y*p7X      TabIndex        =   6*p1937Y*p7X      Top             =   1320*p1987Y*p7X      Width           =   1212*p2037Y*p7X   End*p2087Y*p7X   Begin CommandButton OKCmdBtn *p2137Y*p7X      Caption         =   "OK"*p2187Y*p7X      FontBold        =   0   'False*p2237Y*p7X      FontItalic      =   0   'False*p2287Y*p7X      FontName        =   "MS Sans Serif"*p2337Y*p7X      FontSize        =   7.8*p2387Y*p7X      FontStrikethru  =   0   'False*p2437Y*p7X      FontUnderline   =   0   'False*p2487Y*p7X      Height          =   372*p2537Y*p7X      Left            =   5760*p2587Y*p7X      TabIndex        =   5*p2637Y*p7X      Top             =   720*p2687Y*p7X      Width           =   1212*p2737Y*p7X   End*p2787Y*p7X   Begin FileListBox FileListBox *p2837Y*p7X      FontBold        =   0   'False*p2887Y*p7X      FontItalic      =   0   'False*p2937Y*p7X      FontName        =   "MS Sans Serif"*p2987Y*p7X      FontSize        =   7.8*p3037Y*p7X      FontStrikethru  =   0   'False*p3087Y*p7X      FontUnderline   =   0   'False*p3137Y*p7X      Height          =   2520*b0M
*p37Y*p7XINIOPEN.FRM - 2*p87Y*p7X *p137Y*p7X      Left            =   360*p187Y*p7X      Pattern         =   "*.INI"*p237Y*p7X      TabIndex        =   2*p287Y*p7X      Top             =   1200*p337Y*p7X      Width           =   2172*p387Y*p7X   End*p437Y*p7X   Begin DirListBox Dir1 *p487Y*p7X      FontBold        =   0   'False*p537Y*p7X      FontItalic      =   0   'False*p587Y*p7X      FontName        =   "MS Sans Serif"*p637Y*p7X      FontSize        =   7.8*p687Y*p7X      FontStrikethru  =   0   'False*p737Y*p7X      FontUnderline   =   0   'False*p787Y*p7X      Height          =   2616*p837Y*p7X      Left            =   2760*p887Y*p7X      TabIndex        =   1*p937Y*p7X      Top             =   960*p987Y*p7X      Width           =   2532*p1037Y*p7X   End*p1087Y*p7X   Begin DriveListBox Drive1 *p1137Y*p7X      FontBold        =   0   'False*p1187Y*p7X      FontItalic      =   0   'False*p1237Y*p7X      FontName        =   "MS Sans Serif"*p1287Y*p7X      FontSize        =   7.8*p1337Y*p7X      FontStrikethru  =   0   'False*p1387Y*p7X      FontUnderline   =   0   'False*p1437Y*p7X      Height          =   288*p1487Y*p7X      Left            =   2760*p1537Y*p7X      TabIndex        =   0*p1587Y*p7X      Top             =   3960*p1637Y*p7X      Width           =   2532*p1687Y*p7X   End*p1737Y*p7X   Begin Label Label3 *p1787Y*p7X      Caption         =   "&File Name:"*p1837Y*p7X      FontBold        =   0   'False*p1887Y*p7X      FontItalic      =   0   'False*p1937Y*p7X      FontName        =   "MS Sans Serif"*p1987Y*p7X      FontSize        =   7.8*p2037Y*p7X      FontStrikethru  =   0   'False*p2087Y*p7X      FontUnderline   =   0   'False*p2137Y*p7X      Height          =   252*p2187Y*p7X      Left            =   360*p2237Y*p7X      TabIndex        =   9*p2287Y*p7X      Top             =   360*p2337Y*p7X      Width           =   972*p2387Y*p7X   End*p2437Y*p7X   Begin Label DirPath *p2487Y*p7X      FontBold        =   0   'False*p2537Y*p7X      FontItalic      =   0   'False*p2587Y*p7X      FontName        =   "MS Sans Serif"*p2637Y*p7X      FontSize        =   7.8*p2687Y*p7X      FontStrikethru  =   0   'False*p2737Y*p7X      FontUnderline   =   0   'False*p2787Y*p7X      Height          =   372*p2837Y*p7X      Left            =   2760*p2887Y*p7X      TabIndex        =   7*p2937Y*p7X      Top             =   480*p2987Y*p7X      Width           =   2532*p3037Y*p7X   End*p3087Y*p7X   Begin Label Label2 *p3137Y*p7X      Caption         =   "&Directories:"*b0M
*p37Y*p7XINIOPEN.FRM - 3*p87Y*p7X *p137Y*p7X      FontBold        =   0   'False*p187Y*p7X      FontItalic      =   0   'False*p237Y*p7X      FontName        =   "MS Sans Serif"*p287Y*p7X      FontSize        =   7.8*p337Y*p7X      FontStrikethru  =   0   'False*p387Y*p7X      FontUnderline   =   0   'False*p437Y*p7X      Height          =   252*p487Y*p7X      Left            =   2760*p537Y*p7X      TabIndex        =   4*p587Y*p7X      Top             =   120*p637Y*p7X      Width           =   1212*p687Y*p7X   End*p737Y*p7X   Begin Label Label1 *p787Y*p7X      Caption         =   "Dri&ves:"*p837Y*p7X      FontBold        =   0   'False*p887Y*p7X      FontItalic      =   0   'False*p937Y*p7X      FontName        =   "MS Sans Serif"*p987Y*p7X      FontSize        =   7.8*p1037Y*p7X      FontStrikethru  =   0   'False*p1087Y*p7X      FontUnderline   =   0   'False*p1137Y*p7X      Height          =   252*p1187Y*p7X      Left            =   2760*p1237Y*p7X      TabIndex        =   3*p1287Y*p7X      Top             =   3720*p1337Y*p7X      Width           =   732*p1387Y*p7X   End*p1437Y*p7XEnd*b0M
*p37Y*p7XINIOPEN.FRM - 1*p87Y*p7X *p137Y*p7X Dim FilePath As String*p187Y*p7X Dim FileName As String*p337Y*p7XSub File1_Click ()*p387Y*p7X    FileNameTxt.Text = FileListBox.FileName*p437Y*p7X    FileName = FileListBox.List(ListIndex)*p487Y*p7XEnd Sub*p587Y*p7XSub File1_DblClick ()*p637Y*p7X    'When the user double clicks on the file list box*p687Y*p7X    'this means the sought after file has been found.*p737Y*p7X    'Assign the current path to the global variable, then make sure*p787Y*p7X    'it has a Backslash in it.  Assign the chosen file name to the global variab*p837Y*p7Xle.*p887Y*p7X    TheNewPath = Dir1.Path*p937Y*p7X    If Right$(TheNewPath, 1) <> "\" Then TheNewPath = "\"*p987Y*p7X    TheFilename = FileNameTxt.Text*p1037Y*p7X    FileListBox.Pattern = "*.INI"  'Reset the list box pattern.*p1087Y*p7X    *p1187Y*p7XEnd Sub*p1287Y*p7XSub CancelCmdBtn_Click ()*p1337Y*p7X     *p1387Y*p7X     Form2.Hide*p1437Y*p7XEnd Sub*p1537Y*p7XSub Dir1_Change ()*p1587Y*p7X    DirPath.Caption = Dir1.Path*p1637Y*p7X    FileListBox.Path = Dir1.Path*p1687Y*p7X    FilePath = Dir1.Path*p1737Y*p7XEnd Sub*p1837Y*p7XSub Drive1_Change ()*p1887Y*p7X    On Error Resume Next*p1937Y*p7X    Dir1.Path = Drive1.Drive*p1987Y*p7X    'If new drive was selected, this causes the Dir1*p2037Y*p7X    'Box to update itself.*p2087Y*p7X    If Err Then*p2137Y*p7X        MsgBox ("Put a disk in the drive and try again"), 48*p2187Y*p7X        Drive1.Drive = Dir1.Path*p2237Y*p7X    End If*p2287Y*p7XEnd Sub*p2387Y*p7XSub FileListBox_Click ()*p2437Y*p7X    FileNameTxt.Text = FileListBox.FileName*p2487Y*p7X    FileName = FileListBox.List(ListIndex)*p2537Y*p7XEnd Sub*p2637Y*p7XSub FileListBox_DblClick ()*p2687Y*p7X     TheNewPath = Dir1.Path*p2737Y*p7X     If Right$(TheNewPath, 1) <> "\" Then TheNewPath = "\"*p2787Y*p7X     TheFilename = FileNameTxt.Text*p2837Y*p7X     FileListBox.Pattern = "*.INI"*p2887Y*p7X     OkCmdBtn_Click*p2937Y*p7XEnd Sub*p3037Y*p7XSub Form_Load ()*p3087Y*p7X     Move (Screen.Width - Form2.Width) / 2, (Screen.Height - Form2.Height) / 2*p3137Y*p7X     DirPath.Caption = Dir1.Path*b0M
*p37Y*p7XINIOPEN.FRM - 2*p87Y*p7X *p137Y*p7XEnd Sub*p237Y*p7XSub OkCmdBtn_Click ()*p287Y*p7X     If FileListBox.ListIndex < 0 Then*p337Y*p7X        MsgBox "No File Selected", 48*p387Y*p7X        Exit Sub*p437Y*p7X     End If*p487Y*p7X     Form2.Tag = Dir1.Path*p537Y*p7X     If Right$(Form2.Tag, 1) <> "\" Then*p587Y*p7X        Form2.Tag = Form2.Tag + "\"*p637Y*p7X     End If*p687Y*p7X     Form2.Tag = Form2.Tag + FileListBox.List(FileListBox.ListIndex)*p737Y*p7X     Form2.Hide*p787Y*p7X    *p837Y*p7XEnd Sub*b0M
*p37Y*p7XINIEDIT.BAS - 1*p87Y*p7X *p137Y*p7X''''''''''''''''''''''''''''*p187Y*p7X' Visual Basic global constant file. This file can be loaded*p237Y*p7X' into a code module.*p287Y*p7X'*p337Y*p7X' Some constants are commented out because they have*p387Y*p7X' duplicates (e.g., NONE appears several places).*p437Y*p7X'*p487Y*p7X' If you are updating a Visual Basic 1.0 program to run in*p537Y*p7X' Visual Basic 2.0, you should replace your global constants*p587Y*p7X' with the constants in this file.  Note that True and False*p637Y*p7X' are now built into Visual Basic so are no longer defined in*p687Y*p7X' this file.*p737Y*p7X'*p787Y*p7X''''''''''''''''''''''''''''*p887Y*p7X' General*p937Y*p7XGlobal TheFileName As String*p1087Y*p7XDeclare Function ControlhWnd Lib "CTLHWND.DLL" (Ctrl As Control)*p1237Y*p7X' Clipboard formats*p1287Y*p7XGlobal Const CF_LINK = &HBF00*p1337Y*p7XGlobal Const CF_TEXT = 1*p1387Y*p7XGlobal Const CF_BITMAP = 2*p1437Y*p7XGlobal Const CF_METAFILE = 3*p1487Y*p7XGlobal Const CF_DIB = 8*p1537Y*p7XGlobal Const CF_PALETTE = 9*p1637Y*p7X' DragOver*p1687Y*p7XGlobal Const ENTER = 0*p1737Y*p7XGlobal Const LEAVE = 1*p1787Y*p7XGlobal Const OVER = 2*p1887Y*p7X' Drag (controls)*p1937Y*p7XGlobal Const CANCEL = 0*p1987Y*p7XGlobal Const BEGIN_DRAG = 1*p2037Y*p7XGlobal Const END_DRAG = 2*p2137Y*p7X' Show parameters*p2187Y*p7XGlobal Const MODAL = 1*p2237Y*p7XGlobal Const MODELESS = 0*p2337Y*p7X' Arrange Method*p2387Y*p7X' for MDI Forms*p2437Y*p7XGlobal Const CASCADE = 0*p2487Y*p7XGlobal Const TILE_HORIZONTAL = 1*p2537Y*p7XGlobal Const TILE_VERTICAL = 2*p2587Y*p7XGlobal Const ARRANGE_ICONS = 3*p2687Y*p7X'ZOrder Method*p2737Y*p7XGlobal Const BRINGTOFRONT = 0*p2787Y*p7XGlobal Const SENDTOBACK = 1*p2887Y*p7X' Key Codes*p2937Y*p7XGlobal Const KEY_LBUTTON = &H1*p2987Y*p7XGlobal Const KEY_RBUTTON = &H2*p3037Y*p7XGlobal Const KEY_CANCEL = &H3*p3087Y*p7XGlobal Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON*p3137Y*p7XGlobal Const KEY_BACK = &H8*b0M
*p37Y*p7XINIEDIT.BAS - 2*p87Y*p7X *p137Y*p7XGlobal Const KEY_TAB = &H9*p187Y*p7XGlobal Const KEY_CLEAR = &HC*p237Y*p7XGlobal Const KEY_RETURN = &HD*p287Y*p7XGlobal Const KEY_SHIFT = &H10*p337Y*p7XGlobal Const KEY_CONTROL = &H11*p387Y*p7XGlobal Const KEY_MENU = &H12*p437Y*p7XGlobal Const KEY_PAUSE = &H13*p487Y*p7XGlobal Const KEY_CAPITAL = &H14*p537Y*p7XGlobal Const KEY_ESCAPE = &H1B*p587Y*p7XGlobal Const KEY_SPACE = &H20*p637Y*p7XGlobal Const KEY_PRIOR = &H21*p687Y*p7XGlobal Const KEY_NEXT = &H22*p737Y*p7XGlobal Const KEY_END = &H23*p787Y*p7XGlobal Const KEY_HOME = &H24*p837Y*p7XGlobal Const KEY_LEFT = &H25*p887Y*p7XGlobal Const KEY_UP = &H26*p937Y*p7XGlobal Const KEY_RIGHT = &H27*p987Y*p7XGlobal Const KEY_DOWN = &H28*p1037Y*p7XGlobal Const KEY_SELECT = &H29*p1087Y*p7XGlobal Const KEY_PRINT = &H2A*p1137Y*p7XGlobal Const KEY_EXECUTE = &H2B*p1187Y*p7XGlobal Const KEY_SNAPSHOT = &H2C*p1237Y*p7XGlobal Const KEY_INSERT = &H2D*p1287Y*p7XGlobal Const KEY_DELETE = &H2E*p1337Y*p7XGlobal Const KEY_HELP = &H2F*p1437Y*p7X' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'*p1487Y*p7X' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'*p1587Y*p7XGlobal Const KEY_NUMPAD0 = &H60*p1637Y*p7XGlobal Const KEY_NUMPAD1 = &H61*p1687Y*p7XGlobal Const KEY_NUMPAD2 = &H62*p1737Y*p7XGlobal Const KEY_NUMPAD3 = &H63*p1787Y*p7XGlobal Const KEY_NUMPAD4 = &H64*p1837Y*p7XGlobal Const KEY_NUMPAD5 = &H65*p1887Y*p7XGlobal Const KEY_NUMPAD6 = &H66*p1937Y*p7XGlobal Const KEY_NUMPAD7 = &H67*p1987Y*p7XGlobal Const KEY_NUMPAD8 = &H68*p2037Y*p7XGlobal Const KEY_NUMPAD9 = &H69*p2087Y*p7XGlobal Const KEY_MULTIPLY = &H6A*p2137Y*p7XGlobal Const KEY_ADD = &H6B*p2187Y*p7XGlobal Const KEY_SEPARATOR = &H6C*p2237Y*p7XGlobal Const KEY_SUBTRACT = &H6D*p2287Y*p7XGlobal Const KEY_DECIMAL = &H6E*p2337Y*p7XGlobal Const KEY_DIVIDE = &H6F*p2387Y*p7XGlobal Const KEY_F1 = &H70*p2437Y*p7XGlobal Const KEY_F2 = &H71*p2487Y*p7XGlobal Const KEY_F3 = &H72*p2537Y*p7XGlobal Const KEY_F4 = &H73*p2587Y*p7XGlobal Const KEY_F5 = &H74*p2637Y*p7XGlobal Const KEY_F6 = &H75*p2687Y*p7XGlobal Const KEY_F7 = &H76*p2737Y*p7XGlobal Const KEY_F8 = &H77*p2787Y*p7XGlobal Const KEY_F9 = &H78*p2837Y*p7XGlobal Const KEY_F10 = &H79*p2887Y*p7XGlobal Const KEY_F11 = &H7A*p2937Y*p7XGlobal Const KEY_F12 = &H7B*p2987Y*p7XGlobal Const KEY_F13 = &H7C*p3037Y*p7XGlobal Const KEY_F14 = &H7D*p3087Y*p7XGlobal Const KEY_F15 = &H7E*p3137Y*p7XGlobal Const KEY_F16 = &H7F*b0M
*p37Y*p7XINIEDIT.BAS - 3*p87Y*p7X *p187Y*p7XGlobal Const KEY_NUMLOCK = &H90*p287Y*p7X' Variant VarType tags*p387Y*p7XGlobal Const V_EMPTY = 0*p437Y*p7XGlobal Const V_NULL = 1*p487Y*p7XGlobal Const V_INTEGER = 2*p537Y*p7XGlobal Const V_LONG = 3*p587Y*p7XGlobal Const V_SINGLE = 4*p637Y*p7XGlobal Const V_DOUBLE = 5*p687Y*p7XGlobal Const V_CURRENCY = 6*p737Y*p7XGlobal Const V_DATE = 7*p787Y*p7XGlobal Const V_STRING = 8*p937Y*p7X' Event Parameters*p1037Y*p7X' ErrNum (LinkError)*p1087Y*p7XGlobal Const WRONG_FORMAT = 1*p1137Y*p7XGlobal Const DDE_SOURCE_CLOSED = 6*p1187Y*p7XGlobal Const TOO_MANY_LINKS = 7*p1237Y*p7XGlobal Const DATA_TRANSFER_FAILED = 8*p1337Y*p7X' QueryUnload*p1387Y*p7XGlobal Const FORM_CONTROLMENU = 0*p1437Y*p7XGlobal Const FORM_CODE = 1*p1487Y*p7XGlobal Const APP_WINDOWS = 2*p1537Y*p7XGlobal Const APP_TASKMANAGER = 3*p1587Y*p7XGlobal Const FORM_MDIFORM = 4*p1687Y*p7X' Properties*p1787Y*p7X' Colors*p1837Y*p7XGlobal Const BLACK = &H0&*p1887Y*p7XGlobal Const RED = &HFF&*p1937Y*p7XGlobal Const GREEN = &HFF00&*p1987Y*p7XGlobal Const YELLOW = &HFFFF&*p2037Y*p7XGlobal Const BLUE = &HFF0000*p2087Y*p7XGlobal Const MAGENTA = &HFF00FF*p2137Y*p7XGlobal Const CYAN = &HFFFF00*p2187Y*p7XGlobal Const WHITE = &HFFFFFF*p2287Y*p7X' System Colors*p2337Y*p7XGlobal Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.*p2387Y*p7XGlobal Const DESKTOP = &H80000001               ' Desktop.*p2437Y*p7XGlobal Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.*p2487Y*p7XGlobal Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.*p2537Y*p7XGlobal Const MENU_BAR = &H80000004              ' Menu background.*p2587Y*p7XGlobal Const WINDOW_BACKGROUND = &H80000005     ' Window background.*p2637Y*p7XGlobal Const WINDOW_FRAME = &H80000006          ' Window frame.*p2687Y*p7XGlobal Const MENU_TEXT = &H80000007             ' Text in menus.*p2737Y*p7XGlobal Const WINDOW_TEXT = &H80000008           ' Text in windows.*p2787Y*p7XGlobal Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scr*p2837Y*p7Xoll-bar arrow box..*p2887Y*p7XGlobal Const ACTIVE_BORDER = &H8000000A         ' Active window border.*p2937Y*p7XGlobal Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.*p2987Y*p7XGlobal Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple d*p3037Y*p7Xocument interface (MDI) applications.*p3087Y*p7XGlobal Const HIGHLIGHT = &H8000000D             ' Items selected item in a contr*p3137Y*p7Xol.*b0M
*p37Y*p7XINIEDIT.BAS - 4*p87Y*p7X *p137Y*p7XGlobal Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a con*p187Y*p7Xtrol.*p237Y*p7XGlobal Const BUTTON_FACE = &H8000000F           ' Face shading on command button*p287Y*p7Xs.*p337Y*p7XGlobal Const BUTTON_SHADOW = &H80000010         ' Edge shading on command button*p387Y*p7Xs.*p437Y*p7XGlobal Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This *p487Y*p7Xcolor is set to 0 if the current display driver does not support a solid gray co*p537Y*p7Xlor.*p587Y*p7XGlobal Const BUTTON_TEXT = &H80000012           ' Text on push buttons.*p687Y*p7X' Enumerated Types*p787Y*p7X' Align (picture box)*p837Y*p7XGlobal Const NONE = 0*p887Y*p7XGlobal Const ALIGN_TOP = 1*p937Y*p7XGlobal Const ALIGN_BOTTOM = 2*p1037Y*p7X' Alignment*p1087Y*p7XGlobal Const LEFT_JUSTIFY = 0  ' 0 - Left Justify*p1137Y*p7XGlobal Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify*p1187Y*p7XGlobal Const CENTER = 2        ' 2 - Center*p1287Y*p7X' BorderStyle (form)*p1337Y*p7X'Global Const NONE = 0          ' 0 - None*p1387Y*p7XGlobal Const FIXED_SINGLE = 1   ' 1 - Fixed Single*p1437Y*p7XGlobal Const SIZABLE = 2        ' 2 - Sizable (Forms only)*p1487Y*p7XGlobal Const FIXED_DOUBLE = 3   ' 3 - Fixed Double (Forms only)*p1587Y*p7X' BorderStyle (Shape and Line)*p1637Y*p7X'Global Const TRANSPARENT = 0    '0 - Transparent*p1687Y*p7X'Global Const SOLID = 1          '1 - Solid*p1737Y*p7X'Global Const DASH = 2         ' 2 - Dash*p1787Y*p7X'Global Const DOT = 3          ' 3 - Dot*p1837Y*p7X'Global Const DASH_DOT = 4     ' 4 - Dash-Dot*p1887Y*p7X'Global Const DASH_DOT_DOT = 5 ' 5 - Dash-Dot-Dot*p1937Y*p7X'Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid*p2037Y*p7X' MousePointer*p2087Y*p7XGlobal Const DEFAULT = 0        ' 0 - Default*p2137Y*p7XGlobal Const ARROW = 1          ' 1 - Arrow*p2187Y*p7XGlobal Const CROSSHAIR = 2      ' 2 - Cross*p2237Y*p7XGlobal Const IBEAM = 3          ' 3 - I-Beam*p2287Y*p7XGlobal Const ICON_POINTER = 4   ' 4 - Icon*p2337Y*p7XGlobal Const SIZE_POINTER = 5   ' 5 - Size*p2387Y*p7XGlobal Const SIZE_NE_SW = 6     ' 6 - Size NE SW*p2437Y*p7XGlobal Const SIZE_N_S = 7       ' 7 - Size N S*p2487Y*p7XGlobal Const SIZE_NW_SE = 8     ' 8 - Size NW SE*p2537Y*p7XGlobal Const SIZE_W_E = 9       ' 9 - Size W E*p2587Y*p7XGlobal Const UP_ARROW = 10      ' 10 - Up Arrow*p2637Y*p7XGlobal Const HOURGLASS = 11     ' 11 - Hourglass*p2687Y*p7XGlobal Const NO_DROP = 12       ' 12 - No drop*p2787Y*p7X' DragMode*p2837Y*p7XGlobal Const MANUAL = 0    ' 0 - Manual*p2887Y*p7XGlobal Const AUTOMATIC = 1 ' 1 - Automatic*p2987Y*p7X' DrawMode*p3037Y*p7XGlobal Const BLACKNESS = 1      ' 1 - Blackness*p3087Y*p7XGlobal Const NOT_MERGE_PEN = 2  ' 2 - Not Merge Pen*p3137Y*p7XGlobal Const MASK_NOT_PEN = 3   ' 3 - Mask Not Pen*b0M
*p37Y*p7XINIEDIT.BAS - 5*p87Y*p7X *p137Y*p7XGlobal Const NOT_COPY_PEN = 4   ' 4 - Not Copy Pen*p187Y*p7XGlobal Const MASK_PEN_NOT = 5   ' 5 - Mask Pen Not*p237Y*p7XGlobal Const INVERT = 6         ' 6 - Invert*p287Y*p7XGlobal Const XOR_PEN = 7        ' 7 - Xor Pen*p337Y*p7XGlobal Const NOT_MASK_PEN = 8   ' 8 - Not Mask Pen*p387Y*p7XGlobal Const MASK_PEN = 9       ' 9 - Mask Pen*p437Y*p7XGlobal Const NOT_XOR_PEN = 10   ' 10 - Not Xor Pen*p487Y*p7XGlobal Const NOP = 11           ' 11 - Nop*p537Y*p7XGlobal Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen*p587Y*p7XGlobal Const COPY_PEN = 13      ' 13 - Copy Pen*p637Y*p7XGlobal Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not*p687Y*p7XGlobal Const MERGE_PEN = 15     ' 15 - Merge Pen*p737Y*p7XGlobal Const WHITENESS = 16     ' 16 - Whiteness*p837Y*p7X' DrawStyle*p887Y*p7XGlobal Const SOLID = 0        ' 0 - Solid*p937Y*p7XGlobal Const DASH = 1         ' 1 - Dash*p987Y*p7XGlobal Const DOT = 2          ' 2 - Dot*p1037Y*p7XGlobal Const DASH_DOT = 3     ' 3 - Dash-Dot*p1087Y*p7XGlobal Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot*p1137Y*p7XGlobal Const INVISIBLE = 5    ' 5 - Invisible*p1187Y*p7XGlobal Const INSIDE_SOLID = 6 ' 6 - Inside Solid*p1287Y*p7X' FillStyle*p1337Y*p7X' Global Const SOLID = 0           ' 0 - Solid*p1387Y*p7XGlobal Const TRANSPARENT = 1       ' 1 - Transparent*p1437Y*p7XGlobal Const HORIZONTAL_LINE = 2   ' 2 - Horizontal Line*p1487Y*p7XGlobal Const VERTICAL_LINE = 3     ' 3 - Vertical Line*p1537Y*p7XGlobal Const UPWARD_DIAGONAL = 4   ' 4 - Upward Diagonal*p1587Y*p7XGlobal Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal*p1637Y*p7XGlobal Const CROSS = 6             ' 6 - Cross*p1687Y*p7XGlobal Const DIAGONAL_CROSS = 7    ' 7 - Diagonal Cross*p1787Y*p7X' LinkMode (forms and controls)*p1837Y*p7X' Global Const NONE = 0         ' 0 - None*p1887Y*p7XGlobal Const LINK_SOURCE = 1    ' 1 - Source (forms only)*p1937Y*p7XGlobal Const LINK_AUTOMATIC = 1 ' 1 - Automatic (controls only)*p1987Y*p7XGlobal Const LINK_MANUAL = 2    ' 2 - Manual (controls only)*p2037Y*p7XGlobal Const LINK_NOTIFY = 3    ' 3 - Notify (controls only)*p2137Y*p7X' LinkMode (kept for VB1.0 compatibility, use new constants instead)*p2187Y*p7XGlobal Const HOT = 1    ' 1 - Hot (controls only)*p2237Y*p7XGlobal Const SERVER = 1 ' 1 - Server (forms only)*p2287Y*p7XGlobal Const COLD = 2   ' 2 - Cold (controls only)*p2437Y*p7X' ScaleMode*p2487Y*p7XGlobal Const USER = 0        ' 0 - User*p2537Y*p7XGlobal Const TWIPS = 1       ' 1 - Twip*p2587Y*p7XGlobal Const POINTS = 2      ' 2 - Point*p2637Y*p7XGlobal Const PIXELS = 3      ' 3 - Pixel*p2687Y*p7XGlobal Const CHARACTERS = 4  ' 4 - Character*p2737Y*p7XGlobal Const INCHES = 5      ' 5 - Inch*p2787Y*p7XGlobal Const MILLIMETERS = 6 ' 6 - Millimeter*p2837Y*p7XGlobal Const CENTIMETERS = 7 ' 7 - Centimeter*p2937Y*p7X' ScrollBar*p2987Y*p7X' Global Const NONE     = 0 ' 0 - None*p3037Y*p7XGlobal Const HORIZONTAL = 1 ' 1 - Horizontal*p3087Y*p7XGlobal Const VERTICAL = 2   ' 2 - Vertical*p3137Y*p7XGlobal Const BOTH = 3       ' 3 - Both*b0M
*p37Y*p7XINIEDIT.BAS - 6*p87Y*p7X *p187Y*p7X' Shape*p237Y*p7XGlobal Const SHAPE_RECTANGLE = 0*p287Y*p7XGlobal Const SHAPE_SQUARE = 1*p337Y*p7XGlobal Const SHAPE_OVAL = 2*p387Y*p7XGlobal Const SHAPE_CIRCLE = 3*p437Y*p7XGlobal Const SHAPE_ROUNDED_RECTANGLE = 4*p487Y*p7XGlobal Const SHAPE_ROUNDED_SQUARE = 5*p587Y*p7X' WindowState*p637Y*p7XGlobal Const NORMAL = 0    ' 0 - Normal*p687Y*p7XGlobal Const MINIMIZED = 1 ' 1 - Minimized*p737Y*p7XGlobal Const MAXIMIZED = 2 ' 2 - Maximized*p837Y*p7X' Check Value*p887Y*p7XGlobal Const UNCHECKED = 0 ' 0 - Unchecked*p937Y*p7XGlobal Const CHECKED = 1   ' 1 - Checked*p987Y*p7XGlobal Const GRAYED = 2    ' 2 - Grayed*p1087Y*p7X' Shift parameter masks*p1137Y*p7XGlobal Const SHIFT_MASK = 1*p1187Y*p7XGlobal Const CTRL_MASK = 2*p1237Y*p7XGlobal Const ALT_MASK = 4*p1337Y*p7X' Button parameter masks*p1387Y*p7XGlobal Const LEFT_BUTTON = 1*p1437Y*p7XGlobal Const RIGHT_BUTTON = 2*p1487Y*p7XGlobal Const MIDDLE_BUTTON = 4*p1587Y*p7X' Function Parameters*p1637Y*p7X' MsgBox parameters*p1687Y*p7XGlobal Const MB_OK = 0                 ' OK button only*p1737Y*p7XGlobal Const MB_OKCANCEL = 1           ' OK and Cancel buttons*p1787Y*p7XGlobal Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons*p1837Y*p7XGlobal Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons*p1887Y*p7XGlobal Const MB_YESNO = 4              ' Yes and No buttons*p1937Y*p7XGlobal Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons*p2037Y*p7XGlobal Const MB_ICONSTOP = 16          ' Critical message*p2087Y*p7XGlobal Const MB_ICONQUESTION = 32      ' Warning query*p2137Y*p7XGlobal Const MB_ICONEXCLAMATION = 48   ' Warning message*p2187Y*p7XGlobal Const MB_ICONINFORMATION = 64   ' Information message*p2287Y*p7XGlobal Const MB_APPLMODAL = 0          ' Application Modal Message Box*p2337Y*p7XGlobal Const MB_DEFBUTTON1 = 0         ' First button is default*p2387Y*p7XGlobal Const MB_DEFBUTTON2 = 256       ' Second button is default*p2437Y*p7XGlobal Const MB_DEFBUTTON3 = 512       ' Third button is default*p2487Y*p7XGlobal Const MB_SYSTEMMODAL = 4096      'System Modal*p2587Y*p7X' MsgBox return values*p2637Y*p7XGlobal Const IDOK = 1                  ' OK button pressed*p2687Y*p7XGlobal Const IDCANCEL = 2              ' Cancel button pressed*p2737Y*p7XGlobal Const IDABORT = 3               ' Abort button pressed*p2787Y*p7XGlobal Const IDRETRY = 4               ' Retry button pressed*p2837Y*p7XGlobal Const IDIGNORE = 5              ' Ignore button pressed*p2887Y*p7XGlobal Const IDYES = 6                 ' Yes button pressed*p2937Y*p7XGlobal Const IDNO = 7                  ' No button pressed*p3037Y*p7X' SetAttr, Dir, GetAttr functions*p3087Y*p7XGlobal Const ATTR_NORMAL = 0*p3137Y*p7XGlobal Const ATTR_READONLY = 1*b0M
*p37Y*p7XINIEDIT.BAS - 7*p87Y*p7X *p137Y*p7XGlobal Const ATTR_HIDDEN = 2*p187Y*p7XGlobal Const ATTR_SYSTEM = 4*p237Y*p7XGlobal Const ATTR_VOLUME = 8*p287Y*p7XGlobal Const ATTR_DIRECTORY = 16*p337Y*p7XGlobal Const ATTR_ARCHIVE = 32*p437Y*p7X'Grid*p487Y*p7X'ColAlignment,FixedAlignment Properties*p537Y*p7XGlobal Const GRID_ALIGNLEFT = 0*p587Y*p7XGlobal Const GRID_ALIGNRIGHT = 1*p637Y*p7XGlobal Const GRID_ALIGNCENTER = 2*p737Y*p7X'Fillstyle Property*p787Y*p7XGlobal Const GRID_SINGLE = 0*p837Y*p7XGlobal Const GRID_REPEAT = 1*p937Y*p7X'OLE Client Control*p987Y*p7X'Action*p1037Y*p7XGlobal Const OLE_CREATE_NEW = 0*p1087Y*p7XGlobal Const OLE_CREATE_FROM_FILE = 1*p1137Y*p7XGlobal Const OLE_COPY = 4*p1187Y*p7XGlobal Const OLE_PASTE = 5*p1237Y*p7XGlobal Const OLE_UPDATE = 6*p1287Y*p7XGlobal Const OLE_ACTIVATE = 7*p1337Y*p7XGlobal Const OLE_EXECUTE = 8*p1387Y*p7XGlobal Const OLE_CLOSE = 9*p1437Y*p7XGlobal Const OLE_DELETE = 10*p1487Y*p7XGlobal Const OLE_SAVE_TO_FILE = 11*p1537Y*p7XGlobal Const OLE_READ_FROM_FILE = 12*p1587Y*p7XGlobal Const OLE_CONVERT_TO_TYPE = 13*p1687Y*p7X'ServerType*p1737Y*p7XGlobal Const OLE_LINKED = 0*p1787Y*p7XGlobal Const OLE_EMBEDDED = 1*p1837Y*p7XGlobal Const OLE_STATIC = 2*p1937Y*p7X'UpdateOptions*p1987Y*p7XGlobal Const OLE_AUTOMATIC = 0*p2037Y*p7XGlobal Const OLE_FROZEN = 1*p2087Y*p7XGlobal Const OLE_MANUAL = 2*p2187Y*p7X'Update Event Constants*p2237Y*p7XGlobal Const OLE_CHANGED = 0*p2287Y*p7XGlobal Const OLE_SAVED = 1*p2337Y*p7XGlobal Const OLE_CLOSED = 2*p2387Y*p7XGlobal Const OLE_RELEASE = 3E