Требуется ваша помощь.
Объявил функции
Код: Выделить всё
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)
Подскажите как реализовать создание контрола, на примере любого.
Спасибо.