ник: час
По поводу вопросов на ответы или......
Вощем - ты на каком этапе????
начинается всё с sub Main() какого нить модуля
Public Sub Main()
If App.PrevInstance Then
MsgBox "Программа уже запущена.", vbExclamation, App.Title
Call FUN_GLB_EXIT
Exit Sub
End If
'GLB_PROGRAMMA_AND_VERS = NZVB(FUN_GLB_PROGRAMMA_AND_VERS)
'Set fso = CreateObject("Scripting.FileSystemObject") ' файловая система включена
'If FUN_START = False Then ' проверка старта
' Call FUN_GLB_EXIT 'выход из программы
'Exit Sub
'End If
Load FRM_START ' загрузка стартовой формы
FRM_START.Show vbModal ' показ стартовой формы
End Sub