VB Code:
'Creates the visible window
mlngSetup = CreateWindowEx( _
0, _
"Database", _
"Setup", _
WS_SYSMENU Or WS_CAPTION, _
lngLeft, _
lngTop, _
450, _
301, _
glngMain, _
0, _
glngApp, _
Null _
)
'Text Box
mlngText(0) = CreateWindowEx( _
WS_EX_CLIENTEDGE, _
"Edit", _
"", _
WS_CHILD Or WS_VISIBLE Or ES_AUTOHSCROLL Or WS_TABSTOP, _
125, _
74, _
305, _
21, _
mlngSetup, _
0, _
glngApp, _
Null _
)
'Button
mlngButton(0) = CreateWindowEx( _
0, _
"Button", _
"&Browse...", _
WS_CHILD Or WS_VISIBLE Or WS_TABSTOP, _
274, _
101, _
75, _
22, _
mlngSetup, _
0, _
glngApp, _
Null _
)
ShowWindow mlngSetup, SW_SHOWDEFAULT
'Message loop
Do While GetMessage(typMessage, 0, 0, 0) <> 0
TranslateMessage typMessage
DispatchMessage typMessage
Loop