Здравствуйте, Cyberya, Вы писали:


C>Private Type CyberyaTable
C>CellText As String 'содержимое ячейки
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
C>CellAlignment As Integer 'хранит значение выравнивания текста в ячейке (по левому краю, по центру, по правому краю)
C>CellFontName As String 'содержит имя шрифта, который будет использоваться в ячейке
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Хоть и не по теме... Вот эти места смущают. Тут у тебя указатель на String. IMHO правильнее было бы, для сохранения в файле делать так:
CellText As String * MAX_LENGHT
CellFontName As String * MAX_LENGHT
Т.е. явно зарезервировать память для строк, Но если ты говоришь, что всё равно сохраняет то ладно... хотя мне это кажется странным, структура всётаки

C>CellFontType(1 To 4) As Boolean 'массив, содержащий информацию о типе шрифта (жирный, наклонный и т.д.)
C>CellFontSize As Integer 'хранит в себе размер шрифта
C>CellCeWidth As Integer 'хранит ширину ячеек
C>CellCeHeight As Integer 'хранит высоту ячеек
C>End Type

C>'=====Вот здесь у меня затык происходит, но о нем ниже=====
C>Put #2, , cTable
C>'=====Вот здесь у меня затык происходит=====

Если Child формы ты создаешь через (а скорее всего это так, ну возможны варианты конечно)

    Dim frm as New MyChildForm
    frm.Show

Попробуй так:

    Put #2, , Me.cTable 'Укажем сами на себя