Version=6.80 NumberOfForms=1 Form1=Form1 FormWidth=238 FormHeight=268 IconFile= NumberOfDesktopIncludes=1 DesktopInclude1=ImageLib.dll NumberOfDeviceIncludes=0 NumberOfObjects=1 Object1=ImageDrawer:Drawer NumberOfModules=0 Sub designer addform(Form1,"Form1","",255,255,255)@ addlabel(form1,Label2,20,45,195,30,"Scrollbar: False",255,255,255,0,0,0,True,True,17,False)@ addlabel(form1,Label1,20,10,195,30,"Text height: 0",255,255,255,0,0,0,True,True,17,False)@ addtextbox(form1,TextBox1,20,115,195,80,"Write stuff here",255,255,255,0,0,0,True,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start ImageDrawer.New1 ("Form1",False) Label1.Text = "Text height: " & ImageDrawer.StringHeight (Textbox1.Text,Textbox1.FontSize) Form1.Show Textbox1.Focus End Sub Sub TextBox1_KeyPress (key) Label1.Text = "Text height: " & ImageDrawer.StringHeight (Textbox1.Text,Textbox1.FontSize) If ImageDrawer.StringHeight (Textbox1.Text,Textbox1.FontSize) > Textbox1.Height -15 Then Label2.Text = "Scrollbar: True" Else Label2.Text = "Scrollbar: False" End If End Sub