XProfan

 $H messages.ph
 $H windows.ph
Declare win1&,win2&,x&,y&,text$,title$,class$,edit1&,text1&,multi1&,edit2&,text2&,multi2&
Windowstyle 31
Windowtitle Hauptfenster
Cls ~GetSysColor(15)
SetDialogFont ~GetStockObject(~DEFAULT_GUI_FONT)
class$=#32770
title$=Dialogfenster
win1&=~CreateWindowEx(0,addr(class$),addr(title$),$40400000,40,40,300,360,%hwnd,0,%hinstance,1000)
text1&=Create(Text,win1&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,10,280,30)
edit1&=Create(EDIT,win1&,Ein Editfeld,10,50,120,20)
multi1&=Create(MULTIEDIT,win1&,Ein Multiedit,10,80,260,250)
***
win2&=~CreateWindowEx($200,addr(class$),addr(title$),$40000000,380,40,220,360,%hwnd,0,%hinstance,1000)
text2&=Create(Text,win2&,Hier könnte ein Text stehen. Welcher Text, das bleibt dir überlassen.,10,40,180,30)
edit2&=Create(EDIT,win2&,Ein Editfeld,10,10,120,20)
multi2&=Create(MULTIEDIT,win2&,Ein Multiedit,10,80,160,250)
class$=msctls_trackbar32
title$=Dialogfenster
multi2&=~CreateWindowEx(0,addr(class$),addr(title$),$50000000,10,80,160,250,win2&,0,%hinstance,1000)
Sleep 1000
ShowWindow(win1&,1)
Sleep 1000
ShowWindow(win2&,1)
Sleep 1000
ShowWindow(win1&,0)
Sleep 1000
ShowWindow(win2&,0)
Sleep 1000

EndIf

ShowWindow(win1&,1)
ShowWindow(win2&,1)

While 1

WaitInput
Case %Key=2:BREAK

Endwhile