On_Init.f
:M On_Init: ( -- )
On_Init: Super
s" MS Sans Serif" SetFaceName: WinFont
8 Width: WinFont
Create: WinFont
\ set form color to system color
COLOR_BTNFACE Call GetSysColor NewColor: FrmColor
self Start: Vert1
Vert1_X Vert1_Y Vert1_W Vert1_H Move: Vert1
;M