a simple windows and type maker?

I would like to make some kind of window system that I could use for making windows that I could use in games.
Also I would like it to generate code specificly Types, like in visual basic but without so many unnessesary "fields". (This may be out of my leage but I will learn a lot about types)
So
Has this already bin done?
If anyone has any avice for me on I am open verry open to suggestions.
So far I have only seen one windows example but it only brought up some nonfunctioning windows. I would realy like some advice on how to intall functionality to the window
using the form window witch will hold all of the object data and just prints out code in text that can be cut and pasted into the blitz editer.
Thanks for any advice!

;this program will be for making windows using blitzs 3d without the 3d part
;and for generating type code; an object orientated application

;programing notes 
;Need to make a type list that contains the x and y locations
; DrawBlock Example
Global scrWidth=640 
Global scrheight=480
Global con
Global new_mx
Global form_name$
; Turn on graphics mode
Graphics scrWidth,scrheight,16

; Create new empty graphic to store our circle in
	Global window=CreateImage(scrWidth/3,scrheight/.50)
	Global interface=CreateImage(scrWidth/3,scrheight/.50)
	;Global button_1=LoadImage ("wintex\bluetile2.bmp")
	;ScaleImage button_1,.75,.25
; Draw the circle image
; Set drawing operations to point to our new empty graphic
	;SetBuffer ImageBuffer(window)
	;Color 215,215,220
; Note the extra space between the circle and the edge of the graphic
	;Rect 0,0,250,300,1
;darkedge
	;Color 170,170,170
;Line 0,0,1,0
;lightedge
	;Rect 2,2,208,296,0
	;Color 90,90,90 
;Line 0,301,209,297
;Line 210,299,210,1
; graphical interface
	;SetBuffer BackBuffer()

SetBuffer ImageBuffer(interface)
Color 215,215,220
; Note the extra space between the circle and the edge of the graphic
Rect 0,0,250,300,1
Color 10,10,150
Rect 3,3,207,20
;darkedge
Color 170,170,170
;lightedge
Rect 2,2,208,296,0
Color 170,170,170

For i = 1 To 3
	Color 215-(10*i),215-(10*i),215-(10*i)
	Line 3,21+i,208,21+i
Next
;DrawImage button_1,10,200 

;Color 200,200,210
Text 4,4,"form editer"


; Let's not forget to put the drawing buffer back!
SetBuffer BackBuffer()
; Set the CLS color to black
ClsColor 0,0,0
mx = MouseX()
my = MouseY() 
 

; Let the user move the circle graphic around a white screen
; putting the graphic at the MouseX,Y coordinates
While Not KeyHit(1)
mx = MouseX()
my = MouseY()
Cls


DrawBlock window,20,20
DrawBlock interface,300,20

newform(form_name$,window)
;DrawImage window,mx,my
;button()
Flip
Wend

Function newform(form_name$,window)

SetBuffer ImageBuffer(window)
Color 215,215,220
; Note the extra space between the circle and the edge of the graphic
Rect 0,0,250,300,1
;darkedge
Color 170,170,170
;Line 0,0,1,0
;lightedge
Rect 2,2,208,296,0
Color 90,90,90 
;Line 0,301,209,297
;Line 210,299,210,1
; graphical interface
;SetBuffer FrontBuffer()
Input form_name$="form 1"
Text 4,4,form_mame$
SetBuffer BackBuffer()



End Function

;Function button()
;SetBuffer ImageBuffer(window)



;End Function



;Function leavewindow(mx,my,new_mx)


;DrawImage window,mx,my
;nmx = MouseX()
;nmy = MouseY()
;con = False


;End Function