VB 6 Проблема с объявлением API функции

[Кирилл]

Пытаюсь объявить такое:

Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

А получаю фигу:

Выношу за комменты в general,тогда получаю это:

 

[Dragokas]

Прототип Declare Function без явного указания области видимости по-умолчанию считается Public.
В модуле формы запрещено объявлять любые виды объектов с областью видимости Public. (только в обычном модуле можно)
Тебе нужно явно указать:

Private Declare Function

А получаю фигу:

Правильно пишет. Функции и процедуры должны идти после объявления глобальных переменных, типов, прототипов ...

 

[Кирилл]

Точно,вспомнил что так же маялся с прозрачностью формы!
Спасибо.

 

[Dragokas]

Да-да. И там же я более подробно расписывал.