VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} MODE_CONTROL 
   Caption         =   "Установка режима контроля"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3600
   OleObjectBlob   =   "MODE_CONTROL.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "MODE_CONTROL"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit


Public pnWhatCalculate As Integer, pbCancel As Boolean

Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub CmdOk_Click()

    With Me
        If .OptionButton3.Value Then
            .pnWhatCalculate = 1
        End If
        If .OptionButton4.Value Then
            .pnWhatCalculate = 2
        End If
        If .OptionButton5.Value Then
            .pnWhatCalculate = 3
        End If
        If .OptionButton6.Value Then
            .pnWhatCalculate = 4
        End If
        If .OptionButton7.Value Then
            .pnWhatCalculate = 5
        End If
    End With
    pbFormCancel = True
    Me.Hide

End Sub

Private Sub OptionButton6_Click()

End Sub

Private Sub UserForm_Initialize()
    If Sheets("Service").Range("B23") = 1 Then
        Me.OptionButton7.Enabled = False
    Else
        Me.OptionButton7.Enabled = True
    End If
    Me.OptionButton3.Value = 1
    Me.Caption = pcNameApp + Me.Caption
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 1 Or CloseMode = 0 Then
    pbFormCancel = False
End If

End Sub
