Hi this is an simple program to create window in QB64
DIM a AS INTEGER
DIM n AS STRING
_FULLSCREEN
CLS
Outer
Heading
Body
Text
SLEEP
'===============================================================================================
SUB Outer
PRINT CHR$(218);
FOR a = 1 TO 78
PRINT CHR$(196);
NEXT a
PRINT CHR$(191)
FOR a = 1 TO 21
PRINT CHR$(179); TAB(80); CHR$(179)
NEXT a
PRINT CHR$(192);
FOR a = 1 TO 78
PRINT CHR$(196);
NEXT a
PRINT CHR$(217)
END SUB
'================================================================================================
SUB Heading
LOCATE 3, 32
PRINT CHR$(218);
FOR a = 1 TO LEN("Windows Example")
PRINT CHR$(196);
NEXT a
PRINT CHR$(191)
LOCATE 4, 32
PRINT CHR$(179);
PRINT "Windows Example";
PRINT CHR$(179)
LOCATE 5, 32
PRINT CHR$(192);
FOR a = 1 TO LEN("Windows Example")
PRINT CHR$(196);
NEXT a
PRINT CHR$(217)
END SUB
'================================================================================================
SUB Body
LOCATE 8, 4
PRINT CHR$(218);
FOR a = 1 TO 72
PRINT CHR$(196);
NEXT a
PRINT CHR$(191)
FOR a = 1 TO 13
PRINT TAB(0); CHR$(179); TAB(4); CHR$(179); TAB(77); CHR$(179)
NEXT a
PRINT TAB(4); CHR$(192);
FOR a = 1 TO 72
PRINT CHR$(196);
NEXT a
PRINT CHR$(217)
LOCATE 22, 1: PRINT CHR$(179)
END SUB
SUB Text
LOCATE 9, 6
PRINT "This is the body of the window."
END SUB
