Hi,
When I try this I get a compile error
flb is not a known control or object
flb.New1("Form1",B4PObject(1))
Here's the rest:
Sub App_Start
Form1.Show
flb.New1("Form1",B4PObject(1))
'Msgbox("standard text")
FormLib.ChangeFont("TextBox1","Ariel")
textbox1.Text=textbox1.Text & CRLF & "iiiiiii1"
textbox1.Text=textbox1.Text & CRLF & "WWWWWWWW"
Msgbox("Ariel")
fl.ChangeFont("TextBox1","Courier New")
textbox1.Text=textbox1.Text & CRLF & "iiiiiii1"
textbox1.Text=textbox1.Text & CRLF & "WWWWWWWW"
Msgbox("Courier")
End Sub