Form4 Pick a Font Form4 Label1 FPlease Double Click on the Font of Your Choice Click Once to View Font List1 Command1 &Cancel Label2 0This is a Test of This Font 1 2 3 4 5 6 7 8 9 0 Form_Click @ Form_Load fontsb printer fontcount list1 Command1_Click form4/ List1_Click currentfont listindex FONTTOUSE label1s fontW fontname label2 List1_DblClick form1 fontlabel CAPTION badfonts fontsexit badfonts1 font2exit Form_DblClick FORM5 LABEL8 SCREEN WIDTH HEIGHT Form_Load Calculate The ScreenWidth / 22 Calculate The ScreenHeight / 2 Command1_Click List1_Click Current Default Font is This Font Could Not Be Loaded" BARS Version 2.0 List1_DblClick Current Font is This Font Could Not Be Loaded" BARS Version 2.0