VERSION 2.00
Begin Form Form2 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "INIBAK - INI File Has Changed"
   ClientHeight    =   6675
   ClientLeft      =   60
   ClientTop       =   465
   ClientWidth     =   9480
   ControlBox      =   0   'False
   Height          =   7200
   HelpContextID   =   11
   Left            =   0
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6675
   ScaleWidth      =   9480
   Top             =   0
   Width           =   9600
   Begin CommandButton Command4 
      Caption         =   "&Overwrite Top File Of Stack"
      Height          =   375
      HelpContextID   =   13
      Left            =   3240
      TabIndex        =   8
      Top             =   2160
      Width           =   3015
   End
   Begin ListBox List2 
      BackColor       =   &H00C0C0C0&
      Height          =   1395
      HelpContextID   =   15
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   6
      Top             =   5160
      Width           =   9255
   End
   Begin ListBox List1 
      BackColor       =   &H00C0C0C0&
      Height          =   1395
      HelpContextID   =   15
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   5
      Top             =   3360
      Width           =   9255
   End
   Begin CommandButton Command3 
      Cancel          =   -1  'True
      Caption         =   "&Ignore Changes"
      Height          =   375
      HelpContextID   =   11
      Left            =   6360
      TabIndex        =   4
      Top             =   2640
      Width           =   3015
   End
   Begin CommandButton Command2 
      Caption         =   "&Restore File From Stack"
      Height          =   375
      HelpContextID   =   14
      Left            =   6360
      TabIndex        =   3
      Top             =   2160
      Width           =   3015
   End
   Begin CommandButton Command1 
      Caption         =   "&Add Changed File To Stack"
      Default         =   -1  'True
      Height          =   375
      HelpContextID   =   12
      Left            =   120
      TabIndex        =   2
      Top             =   2160
      Width           =   3015
   End
   Begin Image Image3 
      Height          =   1500
      Left            =   6360
      Picture         =   INIWARN.FRX:0000
      Top             =   600
      Width           =   3000
   End
   Begin Image Image2 
      Height          =   1500
      Left            =   3240
      Picture         =   INIWARN.FRX:278A
      Top             =   600
      Width           =   3000
   End
   Begin Image Image1 
      Height          =   1500
      Left            =   120
      Picture         =   INIWARN.FRX:4F14
      Top             =   600
      Width           =   3000
   End
   Begin Label Label4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Lines deleted from INI file:"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   4920
      Width           =   3255
   End
   Begin Label Label3 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Lines added to INI file:"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   3120
      Width           =   3255
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8895
   End
End
Option Explicit
' This form's list boxes get pre-loaded with data by the main form.
' All it does is return which of its buttons was pressed by setting
' the value of its Tag field.

Sub Command1_Click ()
  Form2.Tag = R_SAVENEW
  Form2.Hide
End Sub

Sub Command2_Click ()
  Form2.Tag = R_RESTORE
  Form2.Hide
End Sub

Sub Command3_Click ()
  Form2.Tag = R_IGNORE
  Form2.Hide
End Sub

Sub Command4_Click ()
  Form2.Tag = R_OVERWRITE
  Form2.Hide
End Sub

Sub Form_Load ()
  Form2.Tag = R_IGNORE
End Sub