VERSION 5.00
Begin VB.Form frmOptions 
   BackColor       =   &H008080FF&
   Caption         =   "&Программа выбор"
   ClientHeight    =   4170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5385
   LinkTopic       =   "Form1"
   ScaleHeight     =   4170
   ScaleWidth      =   5385
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton OptLevel3 
      BackColor       =   &H008080FF&
      Caption         =   "Уровень3 "
      Height          =   495
      Left            =   2760
      TabIndex        =   6
      Top             =   1800
      Width           =   1215
   End
   Begin VB.OptionButton OptLevel2 
      BackColor       =   &H008080FF&
      Caption         =   "Уровень 2"
      Height          =   495
      Left            =   2760
      TabIndex        =   5
      Top             =   1080
      Width           =   1215
   End
   Begin VB.OptionButton OptLevel1 
      BackColor       =   &H008080FF&
      Caption         =   "Уровень 1"
      Height          =   495
      Left            =   2760
      TabIndex        =   4
      Top             =   360
      Width           =   1215
   End
   Begin VB.CheckBox ChkColors 
      BackColor       =   &H008080FF&
      Caption         =   "Цвет"
      Height          =   495
      Left            =   480
      TabIndex        =   3
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CheckBox chkMouse 
      BackColor       =   &H008080FF&
      Caption         =   "Мышь"
      Height          =   495
      Left            =   480
      TabIndex        =   2
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CheckBox ChkSound 
      BackColor       =   &H008080FF&
      Caption         =   "Звук"
      Height          =   495
      Left            =   480
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.CommandButton CmdExit 
      Caption         =   "&Выход"
      Height          =   495
      Left            =   2040
      TabIndex        =   0
      Top             =   3360
      Width           =   1215
   End
   Begin VB.Label LblChoise 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      Height          =   855
      Left            =   360
      TabIndex        =   7
      Top             =   2400
      Width           =   4095
   End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit


Private Sub ChkColors_Click()
UpdateLabel
End Sub

Private Sub chkMouse_Click()
UpdateLabel
End Sub

Private Sub ChkSound_Click()
UpdateLabel
End Sub

Private Sub CmdExit_Click()
End
End Sub

Private Sub OptLevel1_Click()
UpdateLabel
End Sub

Private Sub OptLevel2_Click()
UpdateLabel
End Sub

Private Sub OptLevel3_Click()
UpdateLabel
End Sub

Public Sub UpdateLabel()
Dim info
Dim lfcr
lfcr = Chr(13) + Chr(10)

If ChkSound.Value = 1 Then
info = "Звук выбран"
Else
info = "Звук отвергнут"
End If
 If chkMouse.Value = 1 Then
 info = info + lfcr + "Мышь выбрана"
 Else
 info = info + lfcr + "Мышь отвергнута"
 End If
 
 If ChkColors.Value = 1 Then
 info = info + lfcr + "Цвет выбран"
 Else
 info = info + lfcr + "Цвет отвергнут"
 End If
 
 ' для позиции Уровень1
 If OptLevel1.Value = True Then
 info = info + lfcr + "Выбран уровень 1"
 End If
 
 If OptLevel2.Value = True Then
 info = info + lfcr + "Выбран уровень 2"
 End If
 
 If OptLevel3.Value = True Then
 info = info + lfcr + "Выбран уровень 3"
 End If
 LblChoise.Caption = info
 
 End Sub
