Private Sub Button_Large_Click
Log("ORIGINAL Input_User.TextField1.Height:")
Log(Input_User.TextField1.Height)
'
Input_User.lblTitle.Text = "Enter comments"
Input_User.Text = "This is an example of a long field, with many words"
Input_User.mBase.Height = 30%y
Input_User.TextField1.Height = Input_User.TextField1.Height * 3
Input_User.TextField1.SetTextAlignment("CENTER","CENTER")
'
Log("Input_User.TextField1.Height:")
Log(Input_User.TextField1.Height)
'
Wait For (Dialog.ShowTemplate(Input_User, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log("Input:")
Log(Input_User.Text)
End If
End Sub