#include "inc\Win_Ext.bi"

Dim as Item Main1 = CreateNewWindow(320, 200, "StaticText Example")   
Dim as Item Text1 = CreateStaticText(Main1, 10, 10, "Hallo Welt")
Dim as Item Text2 = CreateStaticText(Main1, 30, 50, "Hallo Welt","Arial", Italic, 18)
Dim as Item Text3 = CreateStaticText(Main1, 50, 90, "Hallo Welt","Times New Roman", _
                                     Bold OR Underline, 24, &h7000FF, &h000000)

Dim as Item Main2 = CreateNewWindow(320, 200, "CheckBox Example", 200, 200)   
Dim as Item Chck1 = CreateCheckBox(Main2, 100,  10, "Check1")
Dim as Item Chck2 = CreateCheckBox(Main2, 100,  60, "Check2" ,TextLeft)
Dim as Item Chck3 = CreateCheckBox(Main2, 100, 110, "Check3")

Const as String close_key = chr(255)+"k"

Dim as String  Key1, Key2
Dim as Integer Win1, Win2

Do
    Win_Ext_Update() 'Windows Message Update
    
    If Key1 = close_key Then HideItem(Main1) : Win1 = 1
    If Key2 = close_key Then HideItem(Main2) : Win2 = 1
    Key1 = GetWindowKey(Main1)
    Key2 = GetWindowKey(Main2)
    
Loop until Win1 and Win2