Modify TEXTBOX (I can't think of a good title)

Question

My program creates a TEXTBOX with a message in it(it says TYPE HERE). What I would like to have happen is the message will disappear when someone starts typing in the box. Right now the existing message scrolls to the right as characters are typed.
I can seems to find this solution. I'm thinking it might be possible to do this by GraphicsWindow.hide()/GraphicsWindow.show(), but can't seem to get it right.
This is my very first question, so if I am breaking some rules I apologize. Thank you.
My code follows (it has some extra stuff not actually involved in the program, because I copied this code from someone else. Whose name I forgot, sorry)
'Initialize a user friendly window
GraphicsWindow.BackgroundColor = "Cyan" 'An 'easy on the eyes' color
GraphicsWindow.Height = 230 'Make it 230 pixels tall
GraphicsWindow.Width = 600 'and 600 pixels wide
GraphicsWindow.BrushColor = "Black" 'Make all text black
GraphicsWindow.FontSize = 20 '
textbox = Controls.addtextbox(10,50)
Controls.SetTextBoxText(textbox "Type Here")
Controls.SetSize(textbox,580,40) 'Set it to be 20 pixels less then the width of the window
btnCheck = Controls.AddButton("Test Program",110,100) 'Add a button for checking the input
txtOutput = Shapes.AddText("mytest") 'Add some output text to change later
Shapes.Move(txtOutput,10,150) 'Move it below the button
Controls.ButtonClicked = ButtonClick
Sub ButtonClick
EndSub

Answer 1

Without extension i don't know an other way, but with LitDev extension you can do almost everything, except flying:
tb = Controls.AddTextBox(10,10)
Controls.SetTextBoxText(tb, "Type Here")
LDShapes.SetShapeEvent(tb)
LDShapes.ShapeEvent = OnShapeEvent
Sub OnShapeEvent
' "MouseDown" ShapeEvent is NOT working for TB !
'If LDShapes.LastEventShape = tb And LDShapes.LastEventType = "MouseEnter" Then
If LDShapes.LastEventType = "GotFocus" And cleared <> "True" Then ' or "MouseEnter"
Controls.SetTextBoxText(tb, "")
cleared = "True"
EndIf
EndSub
Or
initText = "Type Here"
tb = Controls.AddTextBox(10,10)
btn = Controls.AddButton("Demo", 10,50)
Controls.SetTextBoxText(tb, initText)
LDShapes.SetShapeEvent(tb)
LDShapes.ShapeEvent = OnShapeEvent
Sub OnShapeEvent
If LDShapes.LastEventType = "GotFocus" And Controls.GetTextBoxText(tb) = initText Then
Controls.SetTextBoxText(tb, "")
ElseIf LDShapes.LastEventType = "LostFocus" And Controls.GetTextBoxText(tb) = "" Then
Controls.SetTextBoxText(tb, initText)
EndIf
EndSub
Look at IntelliSense help in LitDev Extension for
LDShapes...  .SetShapeEvent, .ShapeEvent, .LastEventShape, .LastEventType