Private Sub mnuAddBase_Click()
    Dim f_FileName As String
    Dim f_FileNumber As Integer
    If showForOpen(f_FileName) = 0 Then
        If objProject.LoadBaseForAccord(f_FileName) = 0 Then
            MsgBox "Додавання бази здійснено", vbInformation + vbOKOnly, "СПЕКТР"
            Upd_tvwPrjTree
            lvwPrjList.ListItems.Clear 'Очистить список
            curTypeCtgEvnt = Info 'Начальная активн. категор. события
            curTypeObjInfo = TI
            Upd_tvwPrjTree 'Вызвать ф-цию обновления дерева
            mnuFileSave.Enabled = True 'Активизировать меню "Файл->Зберегти"
            mnuFileSaveAs.Enabled = True 'Активизировать меню "Файл->Зберегти як..."
            mnuEdit.Enabled = True 'Активизировать меню "Файл->Зберегти як..."
            mnuEditDel.Enabled = False 'Активизировать меню "Правка" и в нем активизировать
            mnuEditProp.Enabled = False 'только "Переименовать" поскольку активный
            mnuEditRename.Enabled = False ' Node в дереве есть "Проект"
            mnuEditAdd.Enabled = False
            mnuEditAddEvnt.Enabled = False
            mnuEditAddStant.Enabled = False
            mnuEditAddGrp.Enabled = False
            mnuEditAddPried.Enabled = False
            mnuEditAddOI.Enabled = False
            mnuEditAddOper.Enabled = False
            mnuExpXls.Enabled = False
            rightBut = False 'В Начале не нажата правая кнопка мыши (Pop-Up)
            InUpd_lvwPrjList = False
            flagTree = True
            flagNewPrj = False
            curNameItenTree = ""
            PrevNameItenTree = ""
            If objProject.getWthTree > 0 Then
                tvwPrjTree.Width = objProject.getWthTree
                tbstrMain.Left = tvwPrjTree.Width + 50
                tbstrMain.Width = Me.Width - tvwPrjTree.Width + 50
                Frame1.Move tbstrMain.Left + 50, tbstrMain.Top + 400, tbstrMain.Width, tbstrMain.Height - 400
                lvwPrjList.Move 0, 0, Frame1.Width, Frame1.Height
                tvwPrjTree.Refresh
                lvwPrjList.Refresh
            End If
            lvwPrjList.ColumnHeaders.Clear
            lvwPrjList.ListItems.Clear
            'tbstrMain.Tabs.Clear
        Else
            MsgBox "Помилка при додаванні бази ", vbCritical + vbOKOnly, "СПЕКТР"
        End If
    End If
   
End Sub

'Перемещение мыши на форме (между деревом и списком)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 0 Then
        If Y > Frame1.Top + 100 Then
            If X > tvwPrjTree.Width And X < tbstrMain.Left Then
                Me.MousePointer = 9 'Курсор в виде 2-хсторонней стрелки для изменения размера
            ElseIf Y > tvwPrjTree.Top + tvwPrjTree.Height And Y < pctContrProp.Top Then
                Me.MousePointer = 7
            Else
                Me.MousePointer = 1
            End If
        Else
            Me.MousePointer = 1
        End If
    ElseIf Button = 1 And X > 400 And X < (Me.Width - 500) Then   'Если нажата кнопка
        If Me.MousePointer = 9 Then
        'и двигается мышь изменяются соответственно размеры в масштабе Дерева, Рамки,
        'Таб-стрипа и Списка
            mid1 = X
            mid2 = mid1 + 50
            tvwPrjTree.Width = X
            tbstrMain.Left = X + 50
            tbstrMain.Width = Me.Width - X + 50
            Frame1.Left = X + 100
            pctControl.Move 0, 0, Frame1.Width, Frame1.Height
            lvwPrjList.Width = Me.Width - X
            If TypeName(objProject) <> "Nothing" Then
                objProject.setWthTree tvwPrjTree.Width
            End If
            pictShems.Move 0, 0, Me.Width - Frame1.Left - 100, Me.Height - Frame1.Top - 800 '680
            pctContrProp.Width = X
            
        ElseIf Me.MousePointer = 7 Then
            If Y < (ScaleHeight - 200) And Y > 200 Then
                tvwPrjTree.Height = Y
                pctContrProp.Top = tvwPrjTree.Height + 50
                pctContrProp.Height = ScaleHeight - pctContrProp.Top
            End If
        End If
    End If
End Sub