Расширенные свойства форма.

[tae1980]

Почему не работает пример?
На строчку:

' Получаем расширенный стиль окна (Формы)
  aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)

ругается "Compile error: Method or data member not foubd"
Что там не так?

[SAS888]

Что там не так?

Не так то, что в аргументах API-функций Вы используете Me.hWnd, что не допустимо.
Для правильной работы добавьте еще одну API-фунлцию:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Затем, по всему коду, вместо Me.hWnd используйте

FindWindow(vbNullString, UserForm1.Caption)

Посмотрите пример во вложении. Там добавлена недостающая функция и во всех процедурах использована переменная x, значение которой возвращается этой функцией.

[IgorGO]

а с чего Вы взяли что у Me есть свойство или метод hWnd?
не видно такого. дексриптор окна еще нада найти, можно по названию "Userform1"

[tae1980]

Сообщение от SAS888

Посмотрите пример во вложении. Там добавлена недостающая функция и во всех процедурах использована переменная x, значение которой возвращается этой функцией.

Понятно. Спасибо!