MapBasic + Winapi (Создание окна)

[LilLoco]

Добрый день!
Требуется ваша помощь.
Объявил функции

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

Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA"
	 (ByVal dwExStyle As Integer, 
	 ByVal lpClassName As String, 
	 ByVal lpWindowName As String, 
	 ByVal dwStyle As Integer, 
	 ByVal x As Integer, 
	 ByVal y As Integer, 
	 ByVal nWidth As Integer, 
	 ByVal nHeight As Integer,
	 ByVal hWndParent As Integer, 
	 ByVal hMenu As Integer, 
	 ByVal hInstance As Integer, 
	 lpParam As String) As Integer
Declare Function GetActiveWindow Lib "User32" () as Integer

Далее в коде использовал:

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

Dim a As integer
a = GetActiveWindow()
cls
print CreateWindowEx(0, "Button", "Tra-ta-ta", 1073741824, 10, 10, 50, 20, a, 0, 0, str)

Пробовал использовать различные значения для dwStyle, hInstance, но все безрезультатно.
Подскажите как реализовать создание контрола, на примере любого.
Спасибо.

[Sibit]

Я думаю лучше не заморачиваться и попробовать сделать все на .NET(если версия Mapinfo позволяет). WinApi использовать только когда совсем никак, а то в MapBasic с ним постоянно на какие-то вилы натыкаешься.
Хотя если решите проблему - будет интересно