Version=6.90
NumberOfForms=1
Form1=Form1
FormWidth=240
FormHeight=268
IconFile=
NumberOfDesktopIncludes=1
DesktopInclude1=Door.dll
NumberOfDeviceIncludes=0
NumberOfObjects=2
Object1=obj:Object
Object2=TB1Click:Event
NumberOfModules=0
Sub designer
addform(Form1,"Form1","",220,220,220)@
addbutton(form1,Button1,85,40,75,25,"Dummy",212,208,200,0,0,0,True,True,9)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.

End Sub

Sub App_Start
	Form1.Show
	AddTextBox("Form1","TextBox1",40,110,155,22,"irgendwelcher Text")
	obj.New1(False)
	obj.FromControl("TextBox1")
	TB1Click.New1(Obj.Value,"Click")
End Sub

Sub TB1Click_NewEvent
	TextBox1.SelectionStart = 0
	TextBox1.SelectionLength = StrLength(TextBox1.Text)
End Sub