VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} CHOOSE_TYPE 
   Caption         =   "Отбор типа формулы"
   ClientHeight    =   3270
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6135
   OleObjectBlob   =   "CHOOSE_TYPE.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "CHOOSE_TYPE"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Option Explicit







Public pnType As Integer
Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub CmdOk_Click()
    With Me
        If .OptionButton1.value Then
            .pnType = 1
        End If
        If .OptionButton2.value Then
            .pnType = 2
        End If
        If .OptionButton3.value Then
            .pnType = 3
        End If
        If .OptionButton4.value Then
            .pnType = 4
        End If
        If .OptionButton5.value Then
            .pnType = 5
        End If
        If .OptionButton6.value Then
            .pnType = 6
        End If
    End With
    pbFormCancel = True
    Me.Hide
End Sub

Private Sub OptionButton31_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Caption = pcNameApp + Me.Caption
If LIST_FORMULA.pnTypeOnly <> 0 Then
    Select Case LIST_FORMULA.pnTypeOnly
            Case 1
                Me.OptionButton1.Enabled = True
                Me.OptionButton2.Enabled = False
                Me.OptionButton4.Enabled = False
                Me.OptionButton1.value = True
            Case 2
                Me.OptionButton1.Enabled = False
                Me.OptionButton2.Enabled = True
                Me.OptionButton4.Enabled = False
                Me.OptionButton2.value = True
            Case 4
                Me.OptionButton1.Enabled = False
                Me.OptionButton2.Enabled = False
                Me.OptionButton4.Enabled = True
                Me.OptionButton4.value = True
    End Select
End If
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
