VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} CHOOSE_ALG 
   Caption         =   "Алгоритм расчета"
   ClientHeight    =   2220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4215
   OleObjectBlob   =   "CHOOSE_ALG.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "CHOOSE_ALG"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False










Option Explicit


Public pnTypeAlg As Integer

Private Sub CmdOk_Click()

    With Me
        If .OptionButton1.value Then
            .pnTypeAlg = 1
        End If
        If .OptionButton2.value Then
            .pnTypeAlg = 2
        End If
        If .OptionButton3.value Then
            .pnTypeAlg = 3
        End If
    End With
    pbFormCancel = True
    Me.Hide

End Sub

Private Sub UserForm_Initialize()
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
