#INCLUDE "winman.bi"

'##############################################################################################################

Screenres 1024, 768, 24

With G_FormDefauld_Color

    .V_Back         = Rgb(255, 255, 255)

    .V_BorderFill   = Rgb(200, 200, 200)

    .V_Border       = Rgb(150, 150, 200)

    .V_Text         = Rgb(0, 0, 0)

    .V_BarBack      = Rgb(200, 200, 255)

    .V_BarText      = Rgb(0, 0, 0)

End With

Dim FID As Uinteger

Dim CID As Uinteger

FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1")

'CID = F_Form_Control_Add(FID, 0, MKVektor2D(0, 0), MKVektor2D(30, 30))

FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1")

F_Form_Refresh()

Do

    F_Form_CheckInput()

    Sleep 10, 1

Loop Until Inkey() <> ""

F_Form_Clear()

Screen 0

End