If buttonClicked Then
lastBtn = Controls.LastClickedButton
Controls.SetTextBoxText(txtBox Controls.GetButtonCaption(lastBtn))
buttonClicked = "False"
EndIf
Program.Delay(50)
EndWhile
Sub UpdateMultilineTextBox
mseX = GraphicsWindow.MouseX
mseY = GraphicsWindow.MouseY
For i = 1 To Array.GetItemCount(ctrlCurse)
If mseX > Shapes.GetLeft(ctrlCurse[i]) And mseX < Shapes.GetLeft(ctrlCurse[i]) + ctrl["width"] Then
If mseY > Shapes.GetTop(ctrlCurse[i]) And mseY < Shapes.GetTop(ctrlCurse[i]) + ctrl["height"] Then
Shapes.SetOpacity(ctrlCurse[i] 25)
Else
Shapes.SetOpacity(ctrlCurse[i] 0)
EndIf
Else
Shapes.SetOpacity(ctrlCurse[i] 0)
EndIf
EndFor
EndSub