VERSION 4.00
Begin VB.Form frmSetup 
   Caption         =   "Boxes Setup"
   ClientHeight    =   1920
   ClientLeft      =   4515
   ClientTop       =   3435
   ClientWidth     =   2850
   Height          =   2325
   Left            =   4455
   LinkTopic       =   "Form1"
   ScaleHeight     =   1920
   ScaleWidth      =   2850
   Top             =   3090
   Width           =   2970
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   1440
      TabIndex        =   4
      Top             =   1320
      Width           =   915
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   1320
      Width           =   915
   End
   Begin VB.Frame Frame1 
      Caption         =   "BeepBox"
      Height          =   975
      Left            =   480
      TabIndex        =   0
      Top             =   180
      Width           =   1875
      Begin VB.OptionButton optBeepBoxOff 
         Caption         =   "Off"
         Height          =   255
         Left            =   180
         TabIndex        =   2
         Top             =   540
         Width           =   975
      End
      Begin VB.OptionButton optBeepBoxOn 
         Caption         =   "On"
         Height          =   255
         Left            =   180
         TabIndex        =   1
         Top             =   300
         Value           =   -1  'True
         Width           =   735
      End
   End
Attribute VB_Name = "frmSetup"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim i As Long
Dim sValue As String
If optBeepBoxOn.Value = True Then
    sValue = "TRUE"
    sValue = "FALSE"
End If
i = WritePrivateProfileString("Screen Saver.Boxes", "BeepBox", sValue, "CONTROL.INI")
Unload Me
End Sub
Private Sub Form_Load()
Dim sBeepBox As String
Dim i As Long
Dim iSize As Integer
sBeepBox = "        " ' 8 spaces
iSize = 8
i = GetPrivateProfileString("Screen Saver.Boxes", "BeepBox", "TRUE", sBeepBox, iSize, "CONTROL.INI")
If UCase(Left(sBeepBox, 4)) = "TRUE" Then
    optBeepBoxOn.Value = True
    optBeepBoxOff.Value = True
End If
End Sub