Ошибка Out Of Memory

[Viper]

Ситуация следующая. Есть программа. Из среды VB работает нормально. Выполняемый файл на моем компе работает нормально. На других компах вываливается с вышеуказанной ошибкой. Стартовая процедура:

Код: Выделить всё

Sub Main()
    Set pMain = New FMain
    Load pMain
End Sub

Здесь pMain - ссылка на главное окно (форму) программы. Изучение сего глюка показало, что до выполнения кода в событии Form_Load дело не доходит, вылетает где-то внутри Load pMain. Исходник и экзешник предоставить к сожалению не могу (Security!). Скажу лишь, что ничего экзотического в программе нет, единственный нюанс - имеются в наличии контролы Winsock.
З.Ы. Если стартовую процедуру написать так

Код: Выделить всё

Sub Main()
    Set pMain = New FMain
    MsgBox "А пофиг, что за текст!"
    Load pMain
End Sub

то начинает работать нормально.

[jangle]

На форме лежит какой-то нехороший контрол, может он за границей и ты его не видишь?

[Viper]

На форме лежит какой-то нехороший контрол, может он за границей и ты его не видишь?

Только три Winsock и один Timer, остальное - поля ввода, метки, кнопки и скрытое изначально меню.

[jangle]

Только три Winsock и один Timer, остальное - поля ввода, метки, кнопки и скрытое изначально меню.

Если управление не попадает в Form_Load, значит падает на этапе инциализации какого-то контрола, который лежит на форме.
Надо их все проверить

[iGrok]

А если заменить MsgBox на DoEvents / Sleep что будет?

[trash]

Правильное предложение, иногда в подобных неочевидных случаях оно помогало.

[jangle]

А если заменить MsgBox на DoEvents / Sleep что будет?

Не надо ничего заменять, нужно найти ошибку.

[Viper]

Sleep не помогает точно. DoEvents не пробовал, по идее и не поможет. Все же было бы интересно где собака покопалась - какой контрол инициализируется с ошибкой. Или не контрол.

[Viper]

DoEvents, как и предполагалось не помог. Для интереса поставил контрольную точку в Form_Initialize, туда код доходит. Опять же при наличии там MsgBox дальше код выполняется нормально.

[arvitaly]

Пробовал создать новую форму и по одному копировать (именно копировать) элементы?

[Viper]

Пробовал создать новую форму и по одному копировать (именно копировать) элементы?

Есть такая идея, дойдут руки - попробую, сейчас другая задача стала более актуальной.

[arthur2]

Не знаю, может поможет:
Было у меня нечто подобное - тоже непонятная ошибка, которая тоже переставала быть ошибкой, если перед ней притормозить.
viewtopic.php?p=6709789#p6709789

[Debugger]

То же самое. С моим огромным проектом.
Только с ошибкой возиться не стал. Потом, один из юзеров мне сообщил, что она возникает, если какого-то файла (программе) не хватает. Потестив, я понял, что это правда, но ковырять глубже не стал.